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ABSTRACT: 

A system for printing and dispensing chemical reagents In precisely controlled volumes onto a 
medium at a precisely controlled location. A jetting tube (432), comprising an orifice (433) at one 
end and a fluid receiving aperture (431) at the other end, is concentrically mounted within a 
cylindrical piezo-electric transducer (434). The fluid receiving aperture (431) is connected to a 
reservoir (200) containing a selected reagent by means of a filter (300). The reservoir is 
pressurized by a regulated air supply. An electrical signal of short duration is applied to the 
transducer. The pulse causes the transducer (434) and the vplume defined by the jetting tube 
(432) to expand, thereby drawing in a small quantity of reagent fluid. The cessation of the pulse 
causes the transducer (434) and the volume of the jetting tube (432) to de-expand, thereby 
causing at least a substantially uniformly sized droplet of reagent fluid to be propelled through the 
orifice (433). The droplet may be directed to impact a printing medium or collected in a 
dispensing recepticle. _ 
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© Apparatus, and process for reapent fluid dispensing and printing. 



© A system for printing and dispensing chemical reagents in precisely controlled volumes onto a medium st a 
precisely controlled location. A jetting tube, comprising an orifice at one end and a fluid receiving aperture at the 
other end. is concentrically mounted wittiin a cylindrical piezo-electric transducer. The fluid receiving aperture is 
connected to a reservoir containing a selected reagent by means of a filter. The reservoir Is pressurized by a 
regulated air supply. An electrical signal of short duration is applied to the transducer. The pulse causes the 
transducer and the volume defined by the jetting tube to expand, thereby drawing in a small quantity of reagent 
^ fluid. The cessation o1 the pulse causes the transducer and the volume of the jetting tube to de-expand, thereby 
causing at least a substantially uniformly sized droplet of reagent fluid to be propelled .through the orifice. The 
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droplet may be directed to impact a printing medium or collected in a dispensing recepticle. 
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APPARATUS AND PROCESS FOR REAGENT FLUID DISPENSING AND PRINTING 



BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process for dispensing and printing reagent fluids, * 
6 wherein a transducer is used to propel small quantities of the fluid towards a positioned target. 

Diagnostic assays often require systems for metering, dispensing and printing reagent fluids. In the ^ 
case of metering and dispensing, such systems comprise both manual and automatic means. For purposes 
of practicality, the present background discussion will focus on the methods of metering and dispensing 100 
micro-liter volumes or less. 

10 The manual systems of metering and dispensing include the glass capillary pipet; the micro-pipet; the 
precision syringe; and weighing instruments. The glass capillary pipet is formed from a precision bore glass 
capillary tube. The pipet typically comprises a fire blown bulb and a tubular portion fire drawn to a fine 
point. Fluid is precisely metered by aspirating liquid through the tube Into the bulb to a predetermined level 
indicated by an etched mark. The fluid may then be dispensed by blowing air through the tube. 
J5 The micro-pipet typically comprises a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a threaded stop. The distance the piston travels within the cylinder and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ac- 
20 curately positioned metering marlts. The fluid is introduced into and dispensed from the syringe by 
- movement of the plunger beiween the marks. 

Weighing techniques for dispensing fluids often simply involve weighing a quantity of fluid. The density 
of the fluid may then be used to determine the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision syringe pump; the 
25 peristaltic pump; and the high performance liquid chromatography (HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground piston located within a precision bore cylinder. The 
piston is moved within the cylinder in precise increments by a stepping motor. 

The peristaltic pump comprises an eiastomeric tube which is sequentially pinched by a series of rollers. 
Often the tube is placed inside a semi-circular channel and the rollers mounted on the outer edge of a disc 
30 driven by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 

of the fluid. . . . " * 

The HPLC metering valve comprises a defined length of precision inner diameter tubing. The fluid is 

introduced into the define volume of the tubing with the valve in a first position and then dispensed from the 

tubing when the valve is placed in a second position. 
35 All of the above metering and dispensing systems have the disadvantage that the volumes dispensed 

are relatively large. Furlhermore, these systems are also relatively slow, inefficient and comprise precision 

fitted components which are particularly susceptible to wear. 

The printing of reagent fluids is frequently required in the manufacture of chemical assay test strips. 

Selected reagents are printed in a desired configuration on strips of filter paper. The strips may then be 
40 used as a disposable diagnostic tool to determine the presence or absence of a variety of chemical 

components. 

Generally, to perform a chemical assay with a test strip, the strip is exposed to a fluid or a series of 
fluids to be tested, such as blood, serum or urine. In some instances, the strip is rmsed and processed with 
additional reagents prior to being interpreted. The precise interpretation depends on the type of chemical 

45 reactions involved, but it may be as simple as visually inspecting the test strip for a particular color change. 

The menufacture of test strips generally involves either a manufacturing process or a blotting process. ^ 
The blotting process is the simplest manufacturing method and permits most reagents to be applied without 
modification. A disadvantage of this process is that it is difficult to blot the fluids onto the test stnp with 
precision. * 

50 The printing process will often involve any of three well known methods; silk screening: gravure: and 
transfer printing. The silk screening of reagents generally involves producing a screen by photographic 
methods in the desired configuration for each reagent to be printed. The screen is exposed under light to a 
preselected pattern and then developed. The areas of the screen which are not exposed to lighL when 
devel oped, become porous. However, the areas of the screen which have been exposed to light remain 
relatively nonporous. The screen is then secured in a frame and the test stnp placed below. The desired 
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reagent fluid, specially prepared to have a high viscosity, is spread over the top side oi the screen. The 
reagent passes through the porous areas of the screen and onto the test strip. The test strip is then 
subjected to a drying process, specific to each reagent. Once the test strip is dry, it may be printed again 
using a different screen, pattern and reagent. 

6 The gravure method of printing reagents comprises coating a metal surface with a light sensitive 
polymer. The polymer is exposed to light in the desired predetermined pattern. When developed, the 
polymer creates hydrophilic and hydrophobic regions. The reagent is specially prepared such that when 
applied to the metal ft will adhere only to the hydrophilic regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from the metal to the test 

10 strip. 

The transfer printing method comprises transferring the reagents from a die to the test strip in the 
desired pattern. The die is made with the appropriate pattern on its surface and then coated with the 
desired, specially prepared reagent. A rubber stamp mechanism is pressed against the die to transfer the 
reagent in the desired pattern from the die to the rubber stamp. The rubber stamp is then pressed against 

75 the test strip to transfer the reagent, in the same pattern, to the test strip. 

Each 0) the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requirement that the reagents must be specially prepared. Additionally, if a 
variety of reagents are to be printed onto a single test strip, the strip must be carefully aligned prior to each 
printing. This alignment procedure increases the cost and decreases the throughput of the printing process. 

20 Moreover, a special die or screen must be produced for each pattern to be printed. A further disadvantage 
arises in that the above printing methods are unable to place reproduceable minute quantities of reagent on 
the test strip. 

It is an object of the present invention to provide a printing and dispensing method and apparatus which 
avoids these disadvantages. 

25 

SUMMARY OF THE PRESENT INVENTION 

The present invention is directed to a reagent dispensing and printing apparatus and method, wherein 
30 the apparatus comprises a transducer operative to eject a substantially uniform quantity of reagent in a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
jetting tube is concentrically located with a piezoelectric transducer. The jetting tube comprises an orifice at 
one end and a reagent receiving aperture at the other end. The receiving end of the jetting tube is 
35 connected to a filter which is in turn connected to a reservoir containing a selected reagent. A jetting control 
unit supplies an electrical pulse of short duration to the transducer in response to a commend issued by a 
computer. The electrical pulse causes the volume defined by the jetting tube to expand by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At the end o1 the pulse duration, the 
transducer de-expands propelling a small quantity of the reagent fluid through the orifice and into a fluid 
40 recepticle. If desired, additional droplets may be deposited in the recepticle or the recepticle aligned with an 
additional jetting tube for receiving an additional reagent iiuid. 

An "additional preferred embodiment of the present invention may be used for printing reagent fluids 
onto a print medium. In this embodiment, the jetting tube is aligned with the printing medium such that the 
propelled droplet impacts a precise position on the medium. The jetting tube or print medium may then be 
<5 repositioned and another droplet expelled from the jetting tube. The process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of the present invention is that precise minute quantities of reagent fluid may be 
dispensed or printed in a reproducible manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosities and surface tensions. The reagents 
60 do not in general have to be specially adapted for use with the present invention. 

The invention itself, together with further objects and attendant advantages, will best be understood by 
reference to the following detailed description, taken in conjunction with the accompanying drawings. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

FIGURE 1 is a schematic representation of a first preferred embodinnenl of the present invention 
showing the use of nnultiple jetting heads to meter and dispense reagent fluid. 
6 FIGURE 2a is a perspective view of a first preferred embodiment of the jetting head of the present 

invention. 

FIGURE 2b is .a cut-away perspective view of the preferred embodiment of Fig. 2a taken along lines 
2b-2b with the contact pins removed. 

FIGURE 2c is a sectional representation of the preferred embodiment of Fig. 2a taken along lines 2c- 

10 2c. 

FIGURE 2d is e sectional representation of the preferred embodiment of Fig. 2c taken along lines 2d- 

2d; 

FIGURE 2e is a sectional representation of the jetting tube and transducer of the preferred 
embodiment of Rg. 2b taken along lines 2e*2e. 
T6 FIGURE 3 is a schematic representation of a second preferred embodiment operating in the drop on 

demand mode as a reagent printing system. 

FIGURE 4 is a schematic representation of a third preferred embodiment operating in the continuous 
mode as a reagent printing system. 

FIGURE 5a is a schematic representation of a portion of the jetting head control unit showing the 
20 LED strobe circuit. 

FIGURE 5b is a schematic representation of a portion of the jetting head control unit showing the 
high voltage power supply circuit. 

FIGURE 5c is a schematic representation of a portion of the jetting head control unit showing the 
print control circuit. 

25 * FIGURE 5d is a schematic representation of a portion of the jetting head control unit showing a 
portion of the print pulse generator. 

FIGURE 5e is a schematic representation of a portion of the jetting head control unit showing an 
additional portion of the pulse generator. 

FIGURE 6a is a perspective view of a second preferred embodiment of the jetting head of the 
30 present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Fig. 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of the 
present invention. 

FIGURE 8 is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 
55 head of the present invention. 

FIGURE 9 is a graph of the drop mass of the emitted droplets as a function of emtsslon frequency for 
several fluid viscosities. 

FIGURE 10 is a graph of the velocity of the emitted droplets as a function of frequency for several 
fluid viscosities. 

40 FIGURE 11 is a graph of the total weight of fluid emitted as a function of the number of emitted 

droplets for a given fluid. 



DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIMENTS 

45 

Turning now to the drawings. Fig. 1 shows a schematic representation of a first preferred emooaiment 
of a reagent dispensing system generally represented as reference numeral 30. The dispensing sysiem 30 
comprises a plurality of reagent fluid reservoirs 200, a plurality of filters 300. a plurality of reageni jetting 
heads 400. a plurality of jetting head control units 500, an interface unit 600, a. computer 700, transportation 
50 unit 902. a plurality of fluid mixing cells 904 and a detection station 906. 

The reservoir 200 hoios a selected quantity of reagent fluid for dispensing. The reservoir 200 is 
maintained at atmospheric pressure by suitaole means such as an atmospheric vent. The reagent fluid is 
transferred from the reservoir 200 through the filter 300 to the reagent jetting head 400. The filter 300 is 
placed between the reservoir 200 and the jetting head 400 to ensure that any particular foreign matter in the 
55 reagent fluid is trapped before entenng the jetting neao 400. 

The plurality of jetting heads 400 and the detection station 906 define a processing path. Each jetting 
head 400. which is described in detail below, ejects uniformly sized aroplets 2 of reagent fluid. Tne droplets 
2 are propelled, with controlled velocity and direction, towards a selecting mixing cell 904 positioned along 
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the processing path by the transportation unit 902. The mixing cells 904 are comprised of non-reactive 
materia! and lunction as nninute holding tanks for the dispensed reagent fluid. 

The plurality of jetting heads 400. shown in Fig. 1, are positioned sequentially along the processing 
path. Alternately, some or all of the plurality of jetting heads 400 may be positioned with respect to the 
5 transportation unit 902 such that the heads 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled by the computer 700. The 
computer 700 issues commands to an interface unit 600 which is electrically connected to the transportation 
unit 902 and to the jetting head control unit 500. The interface unit 600 is of conventional design and is 
10 used to control the transfer of information t)etween the computer 700 and the jetting control unit 500. The 
interface unit 600 is also used to control the transfer of information between the computer 700 and the 
transportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 
numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402, 404. The housing 402, 
75 404, when assembled, is adapted to form an orifice aperture 406, an air vent and reagent supply channel 
410 and a transducer chamber 403. shown in Fig. 4b. Four screws 408. adapted to respective housing 
screw apertures 416. hold the housing 402. 404 in an assembled configuration. 

The jetting head 400 further comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 
fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
20 aperture 431 at the other end for expelling and receiving fluid, respectively. The piezo-electric transducer 
434 is cyilndricaily shaped and secured concentrically about the mid-region of the jetting tube 432 with 
epoxy or other suitable means. 

The piezo-electric transducer 434. shown in Fig. 2e, defines a first and second end and comprises a 
section of cylindrically shaped piezeo-electric material 435. An inner nickel electrode 437 covers the inner 
25 surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 
distance to enable electncal connection external to the cylinder 435. 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The- second 
electrode is electrically isolated trom the first electrode 437 by an air gap at the face of the second end of 
the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
30 electrical pulse is applied to the first and second electrodes 437, 436 a voltage potential is developed 
radially across the transducer material 435. The voltage potential causes the radial dimensions of the 
transducer 435 to change, which causes the volume defined by the transducer 434 to also change. 

The jetting tube 432 is positioned in the transducer chamber 403 such that the receiving end 431 
extends beyond the rearward end of the transducer 434. The receiving end 431 of the jetting tube 432 is 
35 inserted into one end of a reagent supply tube 430. The supply tube 430 is sealingly held to the jetting tube 
432 by concentric teeth 412 formed by the housing sections 402. 404. The teeth 412 not only seal the 
supply tube 430 to the jetting tube 432. but. also, seal the supply tube 430 to the housing 402, 404. 

The second end of the supply type 430 passes through the channel 410 and into a reagent reservoir 
200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400. As the reagent 
40 fluid is dispensed, air is supplied to the reservoir 200 through the channel 410 to prevent the creation of a 
vacuum in the reservoir 200. The reservoir 200 is releasabty attached to the housing 402. 404 and held in 
place by trictional forces. A reservoir cap 202 is flexibly attached to the reservoir 200 and adapted such that 
the cap 202 may be used to secure the opening in the reservoir 200 when the reservoir 200 is disengaged 
from the housing 402, 404. 

45 The position of the jetting tube 432 defines the horizontal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are held in a pre-defined vertical relationship with respect to the housing 402. 
404 by means of two upper vertical alignment pins 41 B and two lower vertical alignment pins 418. The two 
upper vertical alignment pins 418 extend horizontally from the housing section 402 into the transducer 
chamber 403. Similarly, the two lower vertical alignment pins 418 extend horizontally from the housing 

50 section 404 into the transducer chamber 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402. 404. 

The jetting tube 432 and the transducer 434 are held in a predefined horizontal relationship with respect 
to the housing 402, 404 by means of four horizontal alignment pins 424. Two of the horizontal alignment 
pins 424 extend horizontally from the housing section 402 approximately midway into the transducer 

55 chamber 403. Similarly, two of the horizontal alignment pins 424 extend horizontally from the housing 
section 404 approximately midway into the transducing chamber 403. Each horizontal alignment pin 424 is 
formed integrally with the respective housing section 402. 404. The alignment pins 418. 424. sealing teeth 
412 and orifice aperture 405 are aligned end adapted to hold the jetting tube 432 and transducer 434 such 
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that the orifice 433 of the jetting tube 432 extends into the orifice aperture 406. 

An electrical transducer activation pulse is supplied to the piezo-electric transducer 434 from the jetting 
head control unit 500 by means of two contact pins 422. A quantity of fluid will be dispensed from ttie 
jetting tube for each applied activation pulse. The activation pulse can be produced by a variety of 
5 conventional circuits or commercially available units. Therefore a detailed description, of such a circuit will 
not be provided. However, a circuit for producing a series of activation pulses is provided in the description 
of the printing embodiment below. Due to the dif fering constraints involved in dispensing and printing, the i 
circuit in the printing embodiment is not required to produce only a single pulse. However, one skilled in the 
art could, if desired, modify the circuit to produce a single pulse on demand for use in the dispensing 
70 embodiment. * 
Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437. 436 located on the outer surface of the transducer 434. Two contact pin holders 
414, integral with the housing 402, 404, are positioned to hold the respective contact pins 422 under the pin 
heads 423 such that each pin head 423 electrically engages the appropriate electrode 437, 43S of the 
15 transducer 434. Two contact pin engaging posts 420 e>rtend from the housing 402. 404 opposite the contact 
pin holders 414 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite the pin heads 423 extend through the housing 402. 404 by means of contact 
pin apertures 421. Since the housing sections 402. 404 are formed symmetrically to one another, the 
contact pins 422 may be optionally attached above the transducer 434. 
20 in operation, the reservoir 200 containing- reagent fluid is fastened to the jetting head 400 such that the 
fluid supply tube 430 extends into the reagent fluid. The filter 300 may be fitted to the free end of the 
supply tube 430 or positioned inside the reservoir 200. Air is supplied through the channel 410 around the 
supply tube 430 to prevent the reservoir 200 from falling below atmospheric pressure. The air is prevented 
from entering around the supply tube 430 and into the transducer chamber 403 by the seal created 
25 between the sealing teeth ^12 and the suppfy tube 430. The jetting tube 432 may be prrmed by slightly 
pressurizing the reservoir 200 to cause the reagent fluid to travel through the supply tube 430 and into ttie 
jetting tube 432. Once primed, the fluid is prevented from substantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation pulse is conducted to the contact pins 422 of the jetting head 400. The 
30 contact pins 422 communicate the high voltage pulse to the electrodes 437, 436 of the transducer 434 with 
polarity such that the concentrically mounted transducer 434 expands. The rate of expansion is controlled 
by the rise time of the high voltage pulse which is preset to generate a rapid expansion. The expansion of 
the transducer 434 causes the jetting tube 432. which is epoxied to the transducer 434. to also expand. The 
expansion of the tubs 432 generates an acoustic expansion wave interior to the tube 432 which travels 
35 axially towards ihe orifice 433 and .towards the fluid receiving aperture 431. When the expansion wave 
reaches the orifice 433, the reagent fluid is partially drawn inwardly. However, the surface tension of the 
fluid acts to inhibit substantial inward fluid movement. 

When the expansion wave reaches the end 431 of the tube 432, the expansion wave is reflected and 
becomes a compression wave which travels towards the center of the pie20*electric tube 434. The high 
40 voltage puise width is adapted such thai when the reflected compression wave is beneath the piezo-electric 
tube 434, the high voltage pulse falls, resulting in a de-expansion of the transducer 434 and the jetting tube 
432. This action adds to the existing acoustic compression wave in the interior of the jetting tube 432. The 
enhanced compression wave travels toward the ori flee causing reagent fluid to be- dispensed from the tube 
432. The fluid is propelled from the orifice 433 as a small droplet 2 and deposited in the selected mixing 
45 cell 904 positioned by the transportation unit 902. One droplet 2 is dispensed for each transducer activation 
pulse. This mode of dispensing is referred to as the drop on demand mode. 

In some instances, the droplet 2 may be accompanied by at least one smaller satelite droplet. However, 
even H satelite droplets are present, the volume and velocity of the reagent droplets 2 are highly 
reproduceable. This reproduceabtlity allows for precise dispensing of uniform, controllably sized droplets 2 
50 of reagent fluid into the mixing cell 904, » 
The droplets 2 of reagents impact the mixing cell 904 with sufficient force and volume to cause fluidic 
mixing of the reagents. Once the desired amounts of the selected reagents are deposited in the selected 
mixing cell 904. mixing ceil 904 is transported to the detection station 906 where the mixed reagems may ' 
be extracted for use or analyzed for assay results. 
55 The dispensing system 30 provides numerous advantages based upon the ability of the reagent jetting 
head 400 to rapidly and reproduceably eject uniform quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent upon the volume of tne reagents used. The ability of the 
dispensing system 30 to dispense such minute amounts of reagents thereby reduces the processing time 
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of certain chemical assays. Furthermore, some chemical assays require a wide range of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the pres ent invention overcomes this 
disadvantage. 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as filter paper to produce an assay test strip. A printing system 10 
using the present invention is represented in Fig. 3. Structure similar in form and function to structure 
described above v/ill be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200, a filter 300, a reagent jetting head 400, a jetting head control unit 500, en 

50 interface 600, a computer 700, and an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of the 
plotter 800 will not be described in detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unK 600. The plotter 800 processes the 

75 commands and produces control signals to drive an x-axis motor (not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor is used to position a 
drum (not shown) to which the printing target 1 is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is applied to the control unit 500 and 
indicates that the plotter 800 is ready to begin a printing operation. 

20 The control unit bOO also receives control signals frorathe interface unit 600. These signals include 
signals HIGHER*. LOWER' to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500; and a series of print signals PRT. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200. 300 are initialized and operate substantially as 

25 described above. The jetting head control unit 500, shown in Figs. 5a - 5e comprises a print control circuit 
510. a pulse generator 530, a high voltage supply 540, and a strobe pulse generator 560. The control unit 
500 also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or described in detail. 

The print control circuit 510 receives the pen down signal PENDIM from the plotter 800 and comprises a 

30 transistor QiOO, a one-shot circuit UiOO. two NAND-gates UiOi, Ui02, a line decoder multiplexer U107 and 
four inverters U103-U106. The pen down signal PENDN Is applied to the base of the transistor QIOO by 
resistors RIOO. R101 and diode DIOO. The emitter of transistor QlOO is tied to ground and the collector is 
connected to the + 5 volt supply by resistor R1 02. 

The one-shot U100 comprises inputs A. B and an output Q. The B input of the one-shot UIOO is 

35 connected to the collector of the transistor OlOO and the A input is tied to ground. The time period of the 
pulse produced by the one-shot UlOO is detennined by a resistor R104, a variable resistor R105 and a 
capacitor ClOO. The output 0 of the one-shot UIOO is combined with the collector output of the transistor 
0100 by the NAND-gate UlOl and then inverted by the NAND-gate U102. The circuit is operative to 
produce an adjustable delay in the application of the pen down signal PENDN to the control unit 500. 

40 The line decoder U107 is circuited to function as a 3 input AND-gate. The output of the NAND-gate 
0102 is applied to the first input of the decoder U107; the print signal line PRT comprising a series of 
pulses from the interface unit 600 is applied to the second input; and a jetting head OWOfF signal from 
switch SI is applied to the third input. The inverter U106 inverts the output of the line decoder U 107 to 
generate the print control signal PRV and the inverters U103-U105 invert the control signals LOWER'. 

45 HIGHER', and RST signals, respectively. 

The high voltage supply 540. shown in Fig. 5b. provides + 175 volts DC to produce a maximum pulse 
of +150 volts peak to peak at the reagent jetting head 400. The high voltage supply 540 comprises 
differential amplifier Ul2 and transistors 01, 02, 013. Q14. A stable reference voltage of -2.5 volts DC is 
produced at the junction of a reservoir R13, connected to the -15 volt supply, and a diode CR6. connected 

50 to ground. The reference voltage Is combined with a resistor R14 to produce an adjustable, stable voltage 
reference for the amplifer U12. The reference voltage is applied to the Inverting input of the amplifier Ut2 
through a resistor Rii. The noninverting input of the amplifier U12 is connected to ground by a resistor 
R12. The amplifier Ul2. in combination with a feedback resistor RIO. produces an output signal proportional 
to the difference of the voltage reference signal and the ground potential. 

55 The output of the amplifier U12 is applied to the base of the transistor 02 whose collector is connected 
■ to the + 15 volt supply, The signal produced at the emitter of the transistor 02 is applied to the base of the 
transistor 01 through resistors R8. R6. R5, a transformer LI and diodes CR4. CR2. CRi. The emitter of the 
transistor 01 is connected to ground and the collector is connected to the +15 voltage supply through the 
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transformer Li. A diode CR3 connects the collector of the transistor 01 to the junction o1 the resistor R5 
and the diode CR4. The transistor Q1 is biased for proper operation by resistors R7. R6, R5. The resistor 
R7 and a capacitor C22 connect the junction of the resistor R8, R6 to the +16 voltage supply. 

The transistor Ql and the transformer LI form a "flyback" blocking oscillator. Any increase in current 

5 supplied by the transistor 01 produces an increase in energy transferred through the secondary winding of 
the transformer Li and diode CR5. Therefore, an Increase in current supplied by the transistor Ql results in 
an increase in power available to the high voltage output. The diodes CR1-CR4 form a "Baker clamp" which j 
prevents transistor Ol from saturating. The clamp thereby avoids transistor storage time. 

The diode CR5 Is connected to a multiple pi filter formed by the inductors L3, L2. capacitors C24, C21 . 

10 C41 and resistors R29. The multiple pi filter attenuates ripple and switching spikes in the signal supplied to ^ 
the transistor Q13 which produces the high voltage output V+ + . A resistor R64 connects the base of the 
transistor 013 to the emitter and to the resistor U29. The base is also connected to the collector of the 
transistor Q14 by a resistor R65. The base of the transistor 014 is connected to the +15 volt supply by a 
resistor R67 and to ground by a resistor R66. The emitter of the transistor 013 provides a signal HV 

15 SENSE which is fed back to the inverting input of the amplifier U12 through a resistor R9. The high voltage 
output V+ + is produced at the collector of the transistor Ql3. The proper biasing of the transistor. 013 is 
provided by resistor R64 and the biasing circuit comprising the transistor 014, resistors R67, R66, R65. 

The puise generator 530, shown in Figs. 5d. 5e, comprises an opto-isolator U18, a one-shot Lr23, a 
digital to analog (D/A) converter U30 and two binary counters U24, U25. The pulse generator 530 accepts 

20 control signals PRT". LOWER*, HIGHER*. RST and produces the activation pulse which is applied to the 
transducer 434. In normal operation, the PRT* control signal is supplied to the opto-isolator Ul8 by a jumper 
JMP between contact points E5, E6. The opto-isolator Ui8 is of conventional design and comprises a light 
emitting diode (LED) circuit and a photo-element circuit. A resistor R15 operates as the load resistor for the 
LED circuit of the isolator and a capacitor C25 suppresses transient noise on the voltage supply to the 

25 isolator UIB. The output of the isolator U18 is applied to one input of the one-shot U23 who'se time constant 
is adjustably determined by resistors R38. R25 and a capacitor C30. The pulse from the non-inverting 
output of the one-shot U23 is fed to the base of a transistor 09. A resistor R39 sets the approximate base 
- current of the transistor 09 which is used as a level shifter for converting the CMOS signal level to the +15 
volt DC signal level. 

30 The control of the rise and fall rates of the pulse generator 530 is accomplished by directing a pair of 
current source transistors Oil, 012 to charge and discharge a capacitor C57, The transistor Oil is 
operative as a source of current and the transistor 012 is operative as a sink for current. A transistor QlO 
controls the level of the current by applying an appropriate bias current through a resistor R56 to the base 
of the transistor Oil. The biasing of the transistors Oil. 0l2 is critical to the proper rise and fall rates. 

55 therefore precision voltage references CRl3. ORIS are* used to provide respective bias reference voltages. 
A temperature compensation network is formed from zener diodes CRM, CRT 6 and resistors R55. R54 to 
maintain stable operation of the transistors Oil, Q12. respectively. The variable resistors R49. R52 may be 
used to adjust the fall time and rise time, respectively, of the output puise applied to the reagent jetting 
head 400. A plurality of resistors R45. R46. R47. R48. R49. R51, R52, R53. R56. R57, R58 are used to 

40 properly bias the transistor OlO, Oil, Q12 and capacitors C55, C60 are circuited to maintain stabiirty of the 
circuiL 

The impedance of the output stage of the rise and fall circuitry OlO. Oil. Ql2 is very high. With such a 
high impedance, circuit' elements attached to the capacitor 057 could affect the linearity of the rise and fall 
time constants. Therefore, an FET input operational amplifier U32 is used as an impedance interface. The 
45 amplifier U32 is configured in the nonmverting mode and circuited with capacitors C5B, C59 for stability. 

The output of the amplifier U32 is applied to an inverting amplifier U31 by means of a resistor R62. The 
amplifier U3l inverts and conditions the pulse control signal with the aid of resistors R59, R60. Resistors 
R61. R63, connected to the -15 voltage supply, provide a means for adjusting the DC level offset of the 
amplifier U31 output signal. Capacitors C51, C52 are connected to enhance the performance and stability of 
50 the circuit. t 

The output of the amplifier U31 is applied by means of a resistor R4i to the positive voltage reference 
signal input REF{ + ) of the D*A converter U30. The negative voltage reference signal input REF(-) is tied to 
ground by a resistor R40. The D/A converter U30 produces output signals lOUT, lOUT* which are s 
proportional to the difference between the positive and nega five voltage reference signal inputs REF( + ). 
55 REF{-). Capacitors C48, C49, C50 are connected to the D A converter U30 to enhance staoility. 

The D/A converter outputs lOUT, lOUT' are also proportional to an 8-bit binary vaiue applied to inputs 
B1-B8. The binary value is supplied by the counters U24. U25 which are controlled by the function signals 
LOWER*. HIGHER* and RST. The LOWER' signal and the HIGHER* signals are applied to the count up and 
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count down inputs CU, CD of the counter U24 by means of opto-tsolators U19, U20. The carry and borrow 
outputs CY, BR of the counter U24 are connected with the count up and count down inputs CU. CD of the 
counter U25. The reset inputs RST of both counters U24, U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16, R17. R18 are used as lead resistors for the LED circuits of the isolators Ul9. 
6 U20. U21 and capacitors C26. C27. 028 are used to enhance the stability of the Isolator circuits. 

The counters U24, U25 may optionally be preloaded to the selected 6-bit binary value through input 
lines TP0-TP7. The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24, U25 by pulling the respective 
inputs TP0-TP7 low and applying an external, active low, load signal EXT LOAD to pin TP8. The load signal 
JO pin TP8 is connected to the load inputs LOAD of the counters U24, U25 and conditioned by a clipping 
circuit comprised of diodes CR9, CRIO and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs lOUT, lOUT are connected to the inverting and noninverting 
inputs of a differential amplifier U29. The output of the amplifier U29 is fed back to the invert ing input by a 
resistor R50. The amplifier U29 converts the current output oi the D/A converter U30 to a voltage output. 
75 Capacitors C56, 047 are provided to enhance circuit stability. 

The output of the amplifier U29 is applied to the noninverting input of the amplifier U28. The output of 
the amplifier U28 is fed back to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting input is also connected to ground by a resistor R36. To enhance the frequency response of the 
amplifier U28. a resistor R43 and a capacitor C54 are connected between the frequency compensation input 
20 FC and ground. An adjustable DC offset is provided by connecting the output offset inputs OF. OF with a 
variable resistor R42. The wiper of the resistor R42 is connected to the high voltage power supply output 
V+ +. 

The output of the amplifier U28 is aiso connected to the base of a transistor 04 and through diodes 
CRll. CR12 to the base of a transistor Q7. The transistor 04. 07, Q3 and resistors R30-R35 form an output 
25 circuit capable of driving high capacitive loads at high slew rates and wide bandwidth. The variable resistor 
R31 may be used to set the maximum current through the bias network R30, R33 by measuring the voltage 
drop across resistor R35. 

The strobe generator 560 produces a strobe pulse and comprises transistors 0101-0105 and a one- 
shot circuit U108. The strobe intensity is determined by the circuit comprising the transistors QlOl-0104 

50 and resistors R109-R115. The circuit is connected to the anode of the LED 900 and receives two inputs 
from the interface unit 600 to produce four levels of light intensity In the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and the 
transistor 01 05. The one-shot U108 comprises inputs A, B and an output Q. The strobe signal STROBE is 
applied to the B input from the interface unit 600. The duration of the one-shot U10S output pulse is 

35 controlled by the adjustable RC network Ri07. R108. The output 0 is applied to the base of the transistor 
01 05 by resistor R108. The collector of the transistor 01 05 is connected to the cathode of the LED 900 to 
draw current through the LED 900. 

The computer 700, control unit 500 and platter 800 must be initialized. The initialization of the computer 
700 and thej5lotter 800 will not be discussed since these units are of conventional design and operation. 

40 To Initialize the jetting head control unit 500. the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to the control unit 500 whereupon the counters U24. 
U25 are cleared. The computer 700 then retrieves from its memory, or by conventional operator input, the 
desired digital setting for the D/A converter. This setting may also be calculated from data and may be 
tailored to specific sizes of jetting heads 400 or reagent fluids. The computer 700 then issues a series of 

45 commands, through the interface unit 600. to increment or decrement the counters U24, U25 to correspond 
to the desired binary setting. If the command directs that the counters are to be raised, then the HIGHER* 
signal is applied through the opto-isolator U20 to the count up CU input of the counter U24: Sinnllarly, if the 
command directs that the counters are to be lowered then the LOWER' signal is applied through the opto- 
isolator U19 to the count down CD input of the counter U24. Since the carry and borrow outputs CY, BR of 

so the counter U24 are connected to the count up and count down inputs CU. CD, respectively, of the counter 
U25, the digital setting applied to the D/A converter U30 may range from 0 to 255. Alternately, the counters 
U24, U25 could be initialized to a desired setting by loading the binary value on the lines TP0-TP7 and 
strobing the EXT LOAD line. 

Once the control unit 500 and the plotter 800 are initialized, the printing cycle may begin. The computer 

55 700 issues a command to the interface unit 600 to produce the series of PRT' signal pulses. The computer 
700 then commands the plotter 800 to print, for example, a line along a selected path. The plotter 800 
positions the jetting head 400 and target 1 and issues the pen down signal PENDN. The signal is delayed 
by the prim control circuit 510 to ensure that the target 1 is properly positioned. At the expiration of the 
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delay, the signal is ANDed with the closed enable switch SI and the series of print pulses PRP. The result 
of the AND operation is the application of the PRT* pulses to the pulse generator circuit 530. 

The Pnr signal is applied through the jumper JMP to the opto-isolator U18 and then to the one-shot 
U23. The one-shot U23 produces a pulse signal which is then converted from CMOS signal levels to the 15 

5 volt DC signal level by the transistor Q9. The rise and tall circuitry comprising QIO, Q11. Q12 converts the 
square wave pulse into a pulse having the rise and fall characteristics preset by the resistors R49. R52. The 
conditioned pulse is then amplified by the amplifier U32 and applied to the amplifier U31. * 

The amplifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter 
U30 and supplies an adjustable DC offset. The DC offset Is used to counteract possible distortion 

70 attributable to the amplifier U31. The distortion arises in that, for the amplifier U31 to b© adequately 
responsive, a small degree of current must flow through the resistor R41. This current creates an offset 
condition at the output of the amplifier U29 which is then scaled by the D/A converter U30 in correspon- 
dence with the binary data. The resistor R63 allows a small amount of current to be applied to the amplifier 
U31 to control the offset voltage attributable lo the current flowing through the resistor R41 . 

75 The D/A converter U30 scales the difference between the inputs REF( + ), REF(-) using the binary data 
supplied to input lines B1-B8 to produce a current output pulse lOUT and a current inverted output pulse 
I OUT-. The two outputs lOUT, lOUT are fed to the amplifier U29 which convert the current outputs Into a 
single voltage output. The scaled, conditioned pulse is then applied to the output circuit comprising the 
amplifier U28 and the transistors Q3. 04. Q5. Q6. 07. The circuit produces a high voltage pulse with the 

20 aforementioned rise and fall characteristics to drive the piezo-electric transducer 434. 

The high voltage pulse Is applied to the transducer 434 and causes a droplet 2 of fluid to be propelled 
onto the target 1. Since the pen down signal PENDN is still applied, additional droplets 2 are produced from 
the jetting head 400. The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce the desired printed line. When the printing is complete, the plotter 

25 800 removes the pen down signal PENDN and the droplet emission stops. Of course it should be 
understood that dots, circles and the like could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The size and uniformity of the droplets 2. as well as the presence of any satelite droplets, may be 
observed with the aid of the scope 950 and the LED 900. The scope 950 and the LED 900 are positioned 

3D such that the droplets 2 pass between the scope 950 and tne LED 900 and within the focal range of the 
scope 950. The strobe pulse when applied lo the LED 900 causes the LED 900 to momentarily flash. The 
timing of the activation and the width of the pulse may be adjusted such that the flash occurs when the 
fluid, expelled in response to the high voltage pulse, is between the scope 950 and the LED 900. The 
dispensed quantity of fluid may then be observed In flight or at or near the mornement of separation from 

35 the orifice 433. Corrections based on tne observation may then be made to the system 10. . 

Since each droplet 2 is small in volume, the droplet 2 may be rapidly absorbed oy the target i . thereby 
allowing rapid and precise placement of a vanety of reagents on the target 1 with reduced drying time and 
reduced potential of fluidity mixing. In addition, the ability to place small droplets 2 In a precise manner 
enables the target 1 to be printed in a high density matrix with a variety of reagents as isolated matrix 

40 elements. 

In some printing applications, particularly when printing fluids of flow viscosity and surface tension, it 
may be desirable to force the fluid through the jetting tube 432 under pressure ana allow the vibrations 
produced by the transducer 434 to break the emitted fluid stream into precise droplets 2 Unde- this mode 
ot printing, the emission ol droplets 2 can not be stopped by cessation of the tranducers activation Dufse II 

45 is therefore necessary to prevent fluid emission by other means. One preferred means of momenianly 
stopping emission of the droplets is shown schem atically in Fig. 4. In this arrangement, structure Simita' to 
structure represented in Fig. 3 in form and function, is represented by like reference numerals. 

The arrangement, generally represented by the numeral 20. Includes a closed reagent recirculation 
system comprising a normally close three way valve 970. a sump 950 and a recirculation pump 980. In the 

60 continuous mode, the reagent fluid is forced out the orifice 433 by hydraulic pressure and broKen into a * 
series of substantially uniform droplets 2 by movement of the transducer 434. A regulated., filtered air 
supply 100 is used to pressurize the reagent fluid reservoir 200. The reagent fluid within tne reservoir 200 
may optionally be agitated by a magnetic stirer unit 990. This is especially useful for reagent fluids * 
comprising suspended particles. 

55 The three-way valve 970 comprises a common channel, a normally open channel and a normally closed 
channel. The fluid is forced through the filter 300 and applied to the normally closed channel of the valve 
970. When the normally closed channel is closed, the normally open channel oi the valve 970 functions as 
a vent for the reagent jetting head 400. The common channel Is connected to the reagent supply lube 430 
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. of the jetting head 400. The reagent supply tube 430 is also connected to the sump 960. 

in operation, the normally closed channel is opened by an appropriate signal supplied by the computer 
700 which also closes the normally open channel. When the normally closed channel is opened, fluid is 
permitted to pass to the sump 960 and to the jetting head 400. The sump 960 collects the reagent fluid not 

5 transferred to the jetting head 400. The sump 960 supplies the collected fluid to the inlet side of the 
recirculating pump 980 which returns the fluid to the reservoir 2O0. The returned fluid is then mixed with the 
contents of the reservoir 200 and is available for recirculation. 

When operating in the continuous mode, rather than interrupt the continuous stream of print pulses to 
the jetting head 400, the printing may be momentarily stopped by closing the normally closed channel of 

10 the valve 970. The closing of the normally closed channel stops the flow of reagent fluid to the jetting head 
400 and allows the jetting head 400 to vent to atmospheric pressure. With the fluid supply blocked, the 
transducer 434 is unable to expel further droplets 2. Thus, If positioning of the target 1 by the plotter 800 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may close the 
normally closed channel of the valve 970. The plotter 800 may then position the target 1 or position a new 

16 target 1 as desired. 

When printing, the active ingredient of the reagent is tailored to achieve a desired concentration per unit 
area on the target 1. However, to a certain e>ctent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1. The preferred embodiment is particularly well 
suited to this application due to its ability to print precise, discrete pels of reagent. 
20 A second preferred embodiment of the jetting head is illustrated In Rgs. 6a-6b and is generally 
represented as 400'. The jetting head 400' comprises housing formed into three sections 401', 402'. 403'. 
The housing section 403" comprises a recessed region which forms the reagent fluid reservoir 200' when 
the housing section 403' is positioned against housing section 402*. 

The jetting head 400' further comprises a pieso-electric transducer 434' and a reagent jetting tube 432' 
£5 similar to those of the first embodiment. The jetting head 400' and the transducer 434* are most clearly 
shown in Fig. 6b. The jetting tube 432' defines an orifice 433' at one end and a reagent fluid receiving 
aperture 431' at the other end. The transducer 434' is mounted to the jetting tube 432' concentrically about 
the mid-region of the tube 432' with epoxy. 

The transducer 434' and the jetting tube 432' are positioned in channels 420', 418'. 416' located in the 
30 housing sections 402'. 401'. The channel 416' comprises a plurality of sealing teeth 412' operative to 
engage and seal against the fluid receiving end 431' of the jetting tube 432'. The channel 416' is connected 
to the reagent fluid supply channel 430'. The supply channel 430' is connected with the fluid reservoir 200* 
by means of an aperture 43V through the housing section 402', shown in Fig. 6b. 

The reservoir 200' comprises a flexible reservoir lining 201' adapted to contain the reagent fluid. The 
35 lining 201' comprises one aperture which is connected to the housing 402' to allow the fluid to pass from 
the lining 201'. A vent (not shown), located in the housing 403', allows the space between the reservoir 200' 
and the lining 201' to be vented or pressurized. A filter 300' is positioned within the aperture 202" to trap 
unwanted particulate foreign matter. 

Electrical pulses are supolied to the transducer 434' by rneans of two contact pins 422'. The pins 422' 
40 are inserted through respective apertures 419' of the housing section 402* and respective apertures 421' ot 
the housing section 403'. Two thin electrically conductive strips 410'. 41 r, shown in Fig. 5b. are use8 to 
connect the transducer 434' with the contact pins 422'. A protective shield 405' extends from the housing 
position 403' to partially isolate the protruding portions of the contact pins 422*. 

The function and operation of the jetting head 400' is similar to that of the jetting head 400 and 
<5 therefore will not be discussed in detail, The collapsible inner lining 201' ot the reservoir 200 allows the 
jetting tube 432' to be primed by pressurizing the reservoir 200' through the vent 205'. Once primed, the 
jetting head 400' may be used as described above in reference to the jetting head 400. 

The jetting head 400' provides an advantage in that the entire fluidic system is contained in one 
housing. Such containment allows for fast and efficient replacement of the jetting heads without fluid 
50 contamination problems. 

A third preferred embodiment ot the jetting head is shown in Fig. 7 and generally represented as 400*. 
The jetting head 400' comprises a housing 403', a reagent fluid supply tube 406*. a piezo-electric 
transducer 434' and an orifice plate 404*. The housing 403' defines a conically shaped fluid chamber 432*. 
An orifice piale 404', defining an orifice 433*. is fastened to the housing 403* such that the orifice 433* is 
55 located at or near the apex of the conical fluid chamber 432*. 

The fluid feed tube 406' is attached to the housing 403* and defines a supply channel 430*. The supply 
channel 430* is in fluid communication with the fluid chamber 432* by means of a connecting channel 431'. 
The base of the fluid chamber 432' is formed by the disc-shaped transducer 434'. The transducer 434' is 
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held in position by a hold down plate 402' attached to the housing 403", The electrical connec tions to the 

transducer 434' are of conventional design and are therefore not shown. The housing 403* further 

comprises a threaded aperture 406' for mounting the jetting head 400'. 

The jetting head 400' operates in a manner similar to the jetting heads described above. However, in 
5 this jetting head the transducer 434' is normally disk shaped. When the electrical pulse is applied, the 

transducer 434' bends slightly, thereby altering the volume of the conicalty shaped jetting chamber 432'. 

The change in volume of the chamber 432' causes the expulsion of fluid through the orifice 433' and the 

intake of fluid through the supply channel 430' as described in reference to the jetting head 400. 

A fourth preferred embodiment of the jetting head is shown in Fig. 8 and is generally represented as 
10 400- . The jetting head 400" Is very similar in form and function to the jetting head 400 and will not be 

described in detail. The jetting head 400" comprises two symmetrical housing sections. The sections may 

be connected together by means of apertures 409" and screws, not shown. When assembled, the housing 

sections 404*. 402" form a T-shaped supply channel 410" . 

In operation, the jetting head 400" functions in a manner similar to the jetting head 400. The jetting 
T5 head 400" is especially suited for use in the continuous mode, but may also be used in the drop on 

demand mode. In the continuous mode, the fluid is circulated continuously through the supply channel 430" 

allowing the jetting tube 432* to withdraw as much fluid as required. 

By way of illustrating and with no limitations intended the following information is given to further 

Illustrate the above described embodiments. The computer 700 is an IBM Corporation Personal Computer 
20 with 640 kbytes of RAM memory. The interface unit 600 is a Burr Brown interface unit model number PC 

20001. The plotter 800 is manufactured by Houston Instrument as model number DMP-40. Communication 

between the plotter 800 and the interface unit 600 is performed through a standard asynchronous serial 

communication port. 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 comprises a rise time 
25 of approximately 5 usees, a fall time of approximately 5 usees and a pulse width of approximately 35 usees. 
When the transducer 434 is operated in the drop on demand mode, the voltage potential of the pulse is 60 
volts plus or minus 10 volts and the pulse frequency can be up to 4 khz. When the transducer 434 is 
operated in the continuous mode, the voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse frequency can be up to 10 kh2. 
30 The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 inches outside 
diameter and .020 inches inside diameter. The tube is drawn to a closed taper in an electric fumace. The 
tapered end is then cut and ground to a desired orifice opening of .002 to .004 inches in diameter. The tube 
is cut to a final length of .945 inches in the case of the dispenser embodiment and ultrasonically cleaned in 
acetone. After being cleaned and dried the large end of the tube is fire polished. If desired, the orifice end 
35 of the tube may receive a coating, such as a hydrophobic polymer, to enhance droplet separation from the 
tube. 

The supply tube 430 is formed from .023 inch inside diameter and .38 inch outside diameter 
polyethylene tubing produced by Intramedic Corp. as model number #14 170 11B. During assembly, one 
end of the tubing is stretched over a warm tapered mandrel. The stretched end of the supply tube 430 is 

40 ' then inserted over the large fire polished end of the jetting tube 432. The assembly is then cleaned and 
baked in a circula'ting air oven at SCC. for 10 minutes. 

The transducer 434 was purchased from Vernitron of Cleveland. Ohio as model number PZT-5H. The 
electrodes 437, 436 are comprised of nickel and are separated from eacn other on the outer surface of the 
transducer by approximately .030 inches. The jetting tube 432 is inserted into the cylindrical piezo-electric 

45 tube 434 and secured with epoxy manufactured by Epoxy Technology of Bellenca. Massachusetts as model 
number 301. The epoxy is apoiied ai the junction of the tube 432 and transducer 434 with a syringe. The 
epoxy flows along the tube 432 inside the transducer 434 by capillary action. The assembly is then baked 
in a circulating air oven at 65' C. for one hour lo cure the epoxy. 

The contact pins 422 are secured to one of the housing sections 402. 404 with a drop of epoxy. The 

50 transducer jetting tube 434. 432 is placed in the housing such thai the orifice end 433 of the tube 432 
protrudes approximately .030 inches from the housing 403. 404, A drop of silver epoxy is placed between 
each contact pin 422 and the transducer 434 to ensure a secure electrical connection. Epoxy is also applied 
to the junction of the housing 402. 404 and supply tube 430. The other section of the housing 402. 404 is 
then screwed into place. 

55 The periphery of the housing 402, 404 is sealed with a capillary sealer such as cyciohexanone. Epoxy 
is then added around each contact pin 422 and around the orifice end 433. The assembly is then baked in 
a circulating air oven at 65"*C. for one hour. 

The filler 300 is formed from a polyester mesh with 30 um pores and positioned in a polypropylene 
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hojsing. The air pressure supplied to the reservoir 200 during continuous printing operations is regulated at 

approximately 10 to 30 psi. 

The reagents used have the following characteristics: 

Printing (drop on demand mode): 
s Fluid viscosity range: 1 • 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

Printing (continuous mode): 

Fluid viscosity range: up to 50 centipoises 

Fluid surface tension: not measured 
10 Dispensing (drop on demand mode):. 

Fluid viscosity range: 2 • 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 

presented in Figs. 9-11. Fig. 9 is a graph of the mass of a droplet as a function of droplet emission 
15 frequency for three fluids. The viscosity of the fluids were 1, 5 and 24 centipoise and the transducer 

excitation pulse width was 35 microseconds. As shown in Fig. 9, the higher fluid viscosity results in a more 

stable operating performance of the jetting head. Fig. 10 is a graph of droplet velocity as a function of 

droplet emission frequency (or fluid viscosities of 1, 5 and 24 centipoise. The log of the total fluid weight as 

a function of the log of the number of droplets emitted is shown in Fig. 11. The fluid used has a viscosity of 
20 2 centipoise. a surface tension of 20 dynes/cm, and a density of .8 grams/cc. The transducer excitation 

pulse was 80 volts and the excitation frequency was approximately 71 1 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 

tensions. Although in some cases viscosity modifiers, such as glycerol, dextran, glucose, and the liice, may 

be added to increase the viscosity, a few reagents are adversely affected by such modifiers. 
25 Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 

Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 

may have small satelite droplets which reduce the accuracy for metering and dispensing applications. 

However, even with the satelite drops, sufficient reagent is adequately delivered for most print applications 

without a substantial decrease in print quality. 
3D Glycerin may be used as a viscosity modifier to improve jetting reliability and to prevent obstruction of 

the orifice arising from evaporation of the reagent fluid components. Glycerin has been found especially 

beneficial for those reagents containing particulate material. The evaporation of the fluid component results 

in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 

evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycerin is 
35 expelled from the orifice. 

When operating in the dispensing mode the volume of the droplets can be varied to substantially 

uniformly contain from 100 pico-liters to l micro-liter. The droplets can be produced at a rate of 

approximately 1 khz to 8 khz. When operating in the printing mode the size of the pel made by each 

droplet measures approximately .O01-.O12 inches in diameter. 
40 A copy of the program used in the computer 700 tor a printing operation is attached hereto as Appendix 

A. The values, manufacturer and manufacturing part number of the circuit components of the jetting control 

unit 500 are substantially as follows: 
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Ref. Numeral 
of Component 

R39, 45-48, 57, 

58 
R66 
R3 
R34 
R50 

RI3,23,36,40, 

41 
R56 

RS 
R6 

R7, 12,25 

R67_ 

R51,53 

R29 

R61 

RlS-18, 26-28, 

54,55,64 
R62 

R30,33 

R21 

R19 

R35 

R43 

R60 

R37 

R9 

Rll . 

U2, 11, 14, 16,22 
C21, 41,45 
C24 

CIO 

Cl,2,3,55,60 

C53 

C36 



Description 
and Value 



RES . 10KOHMi^WATT5%C . F . 
RES . 150OH'IisWATT5?;C . r . 
RES . 1 5KOHI*IijWATT5%C . r . 
RES . 16KOHI'IV'JAXT5%': . : . 
RES . 2 . 4K0HI'liiWATTlM': . F . 



Manufacturer 
and Part No. 



RES . 2 . 4KOHi^i5WATT5%C . F . 
RES . 20KOHMi^WATT5%C . F . 

RES . 2200HI-:VWATT5^C . F . 
RES . 270H:':1v;ATT5^;C . C . 
RES - 2K0HI^^3WATT£?,C . F . 
RES3 . 5KOHI'Ijj*WATr5^„C . F . 
RES . 3 . 9KO™isWATT5?;C . r . 
RES . 3 OOKOHT^i; V7ATT5 ?^ C . F - 
RES . 30KCKl'I>iWATTl?;:': . F . 



RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
CAP 
CAP 



. 4 . 7K0HI-!-:iV/ATT5?;C . F . 
. 45 . 3KOH!-:3<WATr:"j:J: . r 
.470Hr-:i^WATT5%C.F. 
. 470OH?M?sV/ATT5'*;C , F . 
.47KOKI-Ij<WATT5?;C.F. 
.510OHI'lJsWATT5»,C.F. 
. 5 . 2:<CH:':->WATT5^C . F , 
.7,5KOrjv<WAT'r5?^C.F. 
.75KOHr^l32WATT5?^C.r . 
, 76KOHr-P<W*ATTl%K.F. 
.S200Hr'i3^WATT5%C.F. 
.DIP NETV/RK.47K0HM 
.AXIALIMF@2"50VDC 
.;-^.IAL220Hr@250V'DC 



CAP.rJ<IAL ALUIO ELEC. 

4700 OMF§-25^.TC 
CAP.R.=J)IAL DIPPED TAMT. 

10MF@25VDC 
CAP. RADIAL DIPPED TANT. 

1MF@35';DC 
CAP. RADIAL DIPPED TANT. 

47MF'?iO\T3C 



DALE RL079242G 



DALE RL079303G 



DALE RN55D4532F 



DALE RM60D76S2F 

CT9 761-1H47K 
K^iLLORY ^I^TCSd 
ri^LLORY 

Lr2219250C7?3 
M^^LLORY 

TCC.472jC2SM:C 
KEMET 

. T350E106M025AS 
KEMET 

T35OA105KO35AS 
KEMET 
T350H566HC10AS 



55 
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^ ^ ^ ^ T*^1^ ^ 1^ ^ ^ ^ 

i> 0« L-OIriOOnsnw 


anu VdlUS 


Manufacture"'' 
and Part Nn 

CLliU X OX b lit./ • 














C57 












C4r 


C.**Jr . KrdJihL slLv. niUA 


Kr'-tlO/llN 










Cn.r.RrJJlAL A/ri nLL- 






. U J. srlJ: tOU V UL. 




15 Co 












C30,35,37 


CAP. RADIAL 25U MLC 


KEMET 


.015MF(?50VDC 


C315C153K5R5CA 


C4, 7 


CAF.RADIAij 25U H^w 




20 


.01!^F@50VDC 


C315C103K5R5CA 


C4, 5. 6, 9, 11-19, 


CAP. RADIAL 25U KLC 


KEMET 


22,23,25-28 


.22Mr;S50Vr)C 


C322C224M5U5CA 


031-34,37,42,43 






47, 4e, 50-52 






25 C56, 5a, 59 






C46 


CAP.VARI.2-12PF. 


JOHANSEN #9626 



CR7,8,9,10, 
11,12,17 
30 CRl , 2 , 3 , 4 
CR5 

CR6, 13,15 
CR14,15 
U6, 13, 15,17 • 
35 02,9,12 
08,10,11 
04 

01 
40 03,14 
013 
U5,27 
U23,26 
U7-10 
U30 

U24,25 
U23 
Ul 
U4 
U3 

U12,29,31,32 
U18, 19, 20,21 
R24,42,63 
R38,49,52 
R20 

R14,31 



45 



50 



55 



DIODE SIL. 

DIODE SIL, FAST 

DIODE SIL.FASTHIVCLT 

DIODE SIL.REF.2,500VDC 

DIODE £IL.ZENER3.eV.25WATT 

SWITCH 8 POSITION DIP 

TRANSTOR . COMMON NPN 

TRAJ^ISTOR . COM^ION ?KP 

TRAI'ISTOR . H I VOLTH I FREQ . NPN 

TRA-NSTOR . HI VOLTH I FREQ . PMP 

TR/uNSTOR.HIVOLTHIIMPN 

TRAI^STOR.HIVOLTMPM2N3439 

TRAKSTOR.HIVOLTPN? 

IC 1-SHOT 74HC221 

IC 1-SHOT 74LS221 

IC COt/lPARATOR 74HC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC HI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC CO^^v•ERTER 

IC OC DRIVER SN7406 

IC OCTAL LATCH 74HC374 

IC OP AM? LF256 

IC OPTO ISOLATOR 

?OT100KOKM5jWATT10% 

P OTl OKOHMiaWATT 1 0% 

P 0T2 5 KOHi^Ja WATT 1 0% 

FOT2KOHMi2WATT10% 



ITT.FAIRCKLD. 1M4148 

GENL.IMST.EGPIOD 
GEML.INST.UF4007 
NATL.SEMI-LM3852-2.5 
MOTOROLA 1N4622A 
CTS 206-8 
MOTOROLA 2N2222A 
MOTOROLA 2N2907A 
MOTOROLA MPSUlO 
MOTOROLA MPSU60 
TI,MOTOROLATIP48 
MOTOROLA 2N3459 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC6a6N 
NATL. SEMI DAC0800LCN 
NATL. SEMI MM74HC193N 
BURR-BROWN 3584JM 
BURR- BROWN MODEL 724 
NATL. SEMI DM7406N 
NATL. Mr^74HC374N 
NATL. SEMI LF256H 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3622W-1-103 
BOURNS 3622W-1-253 
BOURNS 3622W-1-202 



15 
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10 



15 



20 



25 



30 



35 



Ref, Numeral 


Description 


of Comoonent 


and Value 


VRI 


REGULATOR "5VDC 


RIO 


RES . 1HEG0KI%V/ATT5%C . F . 


R2,4 


RES . 1 . 2K0Hi-I5?WATT5%C . F . 


R32 


RES . 1 . 6K0Hi'I5sWATT5%C . F . 


R44 


RES . 1 . BK0HI'IJsWATT5%C . F . 


Rl 


RES . 10MEGOHI^55WATT5%C . F . 


R5.R22 


RES . 1 0OHI'IVWATT5%C . F . 


R65 


RES . 100KOHI'iiiWATT5%C . F . 


R59 


RES . 10KOHImJjV7ATT1%M. F. 


RlOO 


RES.270OHI^ 


R101,108 


RES.4700HM 


R102,103 


RES.IKOHM 


106,109,110 




R104 


RES.47000H!'! 


R1C5 


PCT.IOOKOHI^ 


R107 


POT.IOKOKI^ 


Rill, 113 


RES,2200H1^ 


R112 


RES.22GH!*: 


R114,115 


RES. 470Hr': 


ClOO 


CA?.10r-;F035 VFC 


C108 


CAP.IOCOO PF_ 


DlOO 


DIODE 


0100, 105 


TRAMSTOR 


0101,102 


TRANSTOR 


0103, 104 


TRANSTOR 


uioculoe 


IC I -SHOT 


U103,104 


IC INVERTOR 


105,106 




U108 


IC LIME DECODER 



Manufacturer 
and Part No. 

NATL. LM340T- 5.0 



DALE RM55D10C2F 



1N4148 
2N2222 
2N3906 
2N3S04 
74LS123 
74LS04 

74LS138 

Of course, it should be understood that a wide range of changes and modHications can be made to the 
preferred embodiments described above. For example, the transducer could be of a type other than piezo- 
electric such as magneto-strictive, electro-strictive. and electro-mechanical. It is therefore intended thai the 
foregoing detailed description be regarded as illustrative rather than limiting, and that it be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 



40 
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45 



50 
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SiiaKt ^it Printir 
Riiqint C4!ibriti« 

OffSft Diti Eo-j-ct LiAi 



m 1 

07-U-W 

ini PtrtoAil Coifutir BASIC CospiUr V2.0O 



TO 



rs 



0030 

og» 

0030 
0030 
0030 
O03O 
0030 
O030 
0030 
0030 
0030 
0030 
20 0030 
0030 
0930 
O03O 
0030 
O030 
25 OD30 
O030 
O030 
O030 
0030 
O030 
30 OO30 
OO30 
0030 
0030 
O030 
O030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0047 
0047 
0041 
0048 
004£ 
e04E 
0DS1 
O051 
ODM 
OOU 
OO&A 
0079' 
O0B3 
OOAD 



35 



40 



45 



50 



0CO6 
0Q0« 
MM 
OOOi 

m 

MOi 
DOOi 
0004 
OCOi 
OOOi 
0044 

0O04 

OOOi 
DOOi 
COOi 

coo^ 

0004 
M04 
OO04 
0O04 
0004 
0004 
0004 
0004 
OO04 
Dt»04 
0O04 

oooi 

0O04 
0004 
0O04 
0004 
0094 
0004 
0M4 
0094 
0004 
0004 
0904 
OlFE 
OIFE 
01ft 

m 
m 

0300 
O20O 
0204 

0204. 

m 

0204 
0204 
020A 



fccA lT]7Lt!7eiC(nt Jit FrintW ISUiTnLE:'8»9!flt Calibrition' aiNESIZE: 132 
■W:'JU • 'REfiCM.' 

'KITDSt • K. A. CnivDld 

•CCPrtlEilT )C) 19B5 SBBOTT LABOMTDfllES 
■mnm * ?.0 O7-OI-B6 H« niznUi «»tfificitioni 
- 1.0 02-11-64 KAE Criitin ti iiitill codi 

'StSTDI - Thii codi cin only b« toipllri by thi BASWl 

CC1PI1IR, it Hill not rim iindtr thi INTERPRETER!! 

•DESaiPTIWi 

Thi rttgtnt cilibritt loduli prismti i ttnu «itb 12 iteii Jfrangid 
ii 3 cohus Qf 4 ro«i. Thi arroM Iryi iUdn Kviunt irovnd thi 
liklt, thi * and • Wys incniint or dicnitnt vilui in thi first 
Mluin, ind the intir kiy iiKutn CDiMfidi in thi third coluM, 
Thi «cond coluin it an irny of ASCII itrinji reprijinting rii?«t naii^ 
rontintrititm, ditisily, and »iiccaity. Thi valuit intirid in coluM oni 
iri drop Iriquincy, pulsr lidtK, strobi dilay, and noizli nu»ti«. 
Thi tomndt in ttvi third (oluin an itart/stcp, load, »vi, and iiit. 

'DATA CICTIOXARY 

REMIl Pointtr to tt4ich iwo itii ii active (0-11) 

SKUS(17,I) Array <or itrtnqi »fd to diipliy thi mud 

IEiaitl7,4) Array far nuibiri in thi mu ditpliy 

6IFF1 DilfKintul tt lovt AEKU! it irrov kty Input 

TYPEl PotMfr sit during lait tcan to dirict action 

KtVSUFt St&raqi ior itrioq input ^rei iinu diiplay 

M Oisttnaioit for singli kiystroU ieputi 

FILEt Stnng ■hrri iiltnait i% built for rtagint data (ill 

KERNAn£t Stnn; Mhiri riagiot naif is stored 

n Roi tg display ipitial qriphici charactir in tm 

n Coluin to display tpicial griphici charactir ii hiu 

n SpKial sriphici charictr it riid iito hirt 

XD.ARP.VALUEl latiger valui lor sitting pulsi iiplitHdi 

mG.VALI Valui sit tfl digital port 0 to inc/dic aaplitndi 

SUt REISDn.CALIBRAIE STATIC 

|»SHIt(17,n,SKUI17,4l 



'rHd iDit. valDH tod itt icrm 



nstn iiniftiiZEi 

«IIE TtPtt 0 1 
TYPEl • 0 



WILE M • " 

At * mm 

IF ACTiva » t m tmmi < \m m cosub peji.bow 

VEKO 



17 
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5 



70 



76 



20 



tutmt Jit Printir 
Reuint CiUbntion 

DH»t Ditl Sourci Ltni 



PA&£ 1 
I2t2i>:57 

lEH Pirsonil Coiputir BASIC toipiler V2.00 



25 



30 



35 



OOBO o:oA 

oou o:da 

OOEO o:oA 

ODFi O20A 

OHB o:oA 

0140 020A 

0165 020A 

Die OIOA 

01C2 020A 

03DB 0:OA 

01D& 020A 

OlDF 020A 

01E6 020A 

01» O20A 

OlEA 02Dfl 



IF Al • CHHJUJ) TKtH HPEl * U 

IF At • THEK tYFEI * 2i 

IF A$ » THEN TTPEI • 3: 

IF At » CHMIOl ♦ CHSt(721 THEN TYPEl * 4i 

IF At « CHRtlO) ♦ CHRttBOl THEK TVPH » 5: 

IF At = CHWIOl ♦ CHRtl7Sl THEN TYPD « 6: 

IF At • tmm * mtm) tkek tvpei * v. 



*eieculi <cr> 
'incrticBt viriibli 
'decrcie&t viriablt 
'up irrOM key 
'dcvn irrw key 
'left arrOK kty 
'rijht irro* kfy 



IF At > CHM(471 AHD At < CHR11I23) THEN HPEl » 8:' iscii 0 - : 

OH TYPE! BCSIIB TJ, T2, H, T4, T5, 14, n, TB 

VEHO -- • 

TVPEI*0 



nn SUB 

m tPASE 



40 



45 



50 



55 



18 



0 268 237 



^ Rtigvnt Jft Prinlir PW£ 5 

Riigtflt CjIibritiM il-H-U 

Sourci Lir-f Ptfionil CotputK BASIC Coipilr V2.M 

. 'fiiifiHtH SUsROl/TinES FDR THIS RQDULE ihhhhh 

Tl; '<cr> MKtiU couind 

IF rim < II THDI TYPE! • 0:RrrURI(i 'Mit to print itim, no Ktian 
OK HDtUI - 11 fiOSlIB Tift, TIB, TIC, TID 

If nm < 15 THEM type: « o 

KTUW 

TIA: 'stirt/stop drop fin 

IF K£)i|;i(t2,01 « 'START* TKtK GOSUB START. INK 
IF nDlUt(12,0) * 'STOP ' THEN 60SUE STOP.DK 
HEKU«(]2,0) • TE)P» 
CaOH OJrBOSUB DISPKENU 

START. IR: 

TtlffI » 'STOP • 

CALL DOl.OX: 'in loiluli PCI 

LDCATE 17,71:CDLIIR 27,0:PR)NT •PRlHTIHG'i 

utive: « 1 

fiETUKN 

STOP. INK: 

IWPI » 'STMT* 

CAU. DDT.DFFt 'it uduli PCI 

LOCATE I7,7I:C0108 15,0:ffllNT ' '; 
ACTIVE! « 0 
RETURN 

Till 'loid rcifint prsiilt 

IF HEKUtl&.n > *' TKIH LOCATE 2S,1:PMKT 'Rrj^cot Ka» ii not specif ied'iiEOSUE MYt:EY:RETUflll 

BQSUB SEARCH 

IF IZ < IREAKim i 1) THEN GOTO FOIMB 
LCCATE ::,10-LD({r.ENUI(&,l])/3:PRIIIT nEHUtlb,])]* not Found*; 
GOSUB ami*/ 'Mit (or i ktyhit 

snuRx 





Uflltt 


D<ti 




OlEA 


02DA 


10 


OJEA 


020A 




OlEA 


02CA 




OIEF 


02 OA 




0205 


02K 




021A 


A30C 


75 


COT 


0Z9C 




O230 


030C 




0230 


02&C 




0235 


020C 




025A 


C3BC 




027F 


020C 


20 


029A 


0210 




02AC 


0210 




0260 


02iO 




O2B0 


0210 




0295 


0210 




02GF 


0210 


25 


02CB- 


C210 


02F1 


C210 




02F8 


0210 




02FC 


0210 




02FC 


0210 




0301 


0210 


30 


0301 


021 0 




0317 


0210 




033D 


0210 




0W4 


0710 




034B 


0210 




034S 


C2I0 


35 


034D 


0210 




0391 


0210 




0391 


0210 




0397 


0210 




0397 


0210 




03AI 


0214 




0401 






OWA 


Mil 






0314 




A JAP 

040i 


02M 




oti: 


0214 




0437 


0211 


45 


0441 


0211 




04il 


0211 




04Gt 


0211 




04AE 


021B 




0401 


021B 




0(F4 


0211 


50 


0519 


0218 




0519 


0218 




0539 


0218 




05^1 


0218 




osss 


0218 




05A9 


0218 



Fount 



FILES • RIBHTIISTRt(II),LEN(5TRl{UI)-l} * 'REA.UP* 

OPEI FILEt FDR DPUT AS lit 'ut pittiro diti fill for mi 

im\ ll,nENU<0,Oh 'rnd frtquncT 

IKFin ll,ffEKUa,0)t 'riid aplitudt 

ixm ll,f.EirUI2,0ti -fiid strobi dtliy 

\m ll,XEMUI3,0)i 'nad pulsi vidU 

IlfFUT ll,nEliUl4,0)t 'read rise tin 

IKFUT ll,nE}(t)lS,0)i 'read iiW tin 

IRPUT ll,nEKI/S(74l)t 'rui CDnccntrition 

IKPUT II, .^116,1)1 'rui dtMtty 

\rm lt,KliWl9,n: 'rui viscoiity 

IKFUT ItfflEKUKlO,!)! 'reid turfice teBiioa 



S5 



19 
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PAS 4 

6 l)iiq.Ht Jtl Pf ifitir 07-14-B4 
Seigtnt Cilibrition l2t2£iS7 

m Prsonil CoiButr BfiSlC Cwpilir H.OO 

OHsit Oita Source lini 



TO 



75 



05*? 


Mil 

C21B 


05B0 


0218 


05B0 


02IB 


0SC2 


0218 


0502 


A<iia 
021b 


05M 


02tB 


05FB 


OZIB 


mi 


A*1IB 

021b 


OtGS 


9218 


0&05 


A4ta 


O&OA 


A<(IB 

0218 


At ir 


Vila 


Our 


OZlD 


0&71 


MID 

021 0 


0478 


021 D 


Ob87 


u2lE 


OiAl 


0216 


OlAB 


DZIB 


OiBO 


n7tD 


06BS 


Vila 


06C7 


Vila 


ft trr 


Ula 


OoDA 




070L 


Mil 


11. 

Urio 






0*1 B 


u/Jr 




07 jZ 


6711) 


A?1C 

0/4r 




0//9 


ma 


ft77P 








A7DI 
0/Dl 


VtiO 


0/DS 


MM 

Vtio 


AIM 




07R} 




ATBC 

07B9 


Vila 


u7o5 


M\i 
Vil9 


07C7 


m 


07M 


mt 


07EI 


0211 


OTEl 


021B 


07Fk 


021C 


0807 


021C 


0817 


021C 


0S32 


0220 


0632 


0220 


083f 


O220 


0839 


0220 


OSSB 


0220 


0B&2 


0220 


OB62 


0220 


0fi&7 


0220 


OBBB 


0220 



aGst II: '"Jen* "ilh 

OPLH 'REMEF.RJP' FCR OUTPUT AS II 
PRIM ll.nUI: '"vt fil"i" »" 

PfllKT ll,IIEKlJl(i,n: '"VI thf dinttory nau it wU 
aCsE II 

BQSUB WSP.PftRRSi 'iboit »I1 prwittri 
RETURH 

rugmt pro^ilt 



IF BENUIIMI . "m^! lOCAH 25,1:PR1HT •R„9»t K«. i. not ,f«i*ied-:MSUB ANY«y:R£TJM 
DPEK ■REWIR.RJP- FDR IHPUT A5 II 

20 OWl 0218 CLOSE II 

IF REASURl < 80 THE8 GOTO EAVE.REfl 
LOCfiTt 25,l:PRiMT 'Directory ii Full tBO rtigmts iii.J 
60SUB MfYKEYiRmiilH 
SAVE.REA: 

EOSUB SEARCH 

25 ofcB6 0218 IF II ) ttRHtWl TKEH GOTO SftVEfiEM 

imm * 11 

LOCaVm^UPRIMT REKUlli,lt[* ilrtidy tiitti. HtplKB it «th nw viluii? *; 

M > ** 

mllE A» « " 
30 0775 0218 A* • IKKEY* 

KENQ 

IDCftlE 25.1:FinNT SPACE»i:^li 
IF ft} « T OR AI » 'Y* iKtK 60TO REPLACE 
REIUXN 

^ 077C 0211 SfiVEREAl: 

KILL %EAOIll.OLD't dilm old biclup dir«tory 
HAftE •READIR.RJP* AS 'Ft^SIR-DUI'i 'Hve old directory 
OPEN ^KEfiClR.Clt' FOR IKPUI AS II 
CPEN •REAfilR.RJP' FOR OUTPUT AS 12: 'lit up nw dir 

-W- JJJj JjIJ jhpuT ll,REflKI«i . mi Buabir dir wtriw 

mam • REAHUHI ♦ IJ 'mrusf iy 1 
HUE ^(HEAKUn: '«« io «<• dirKtOfy 

FDR 1»1 10 REWWm • I 

t^lS£ iKPUT it.Ati -riid intry <rei old dir 
^5 ;;;; PRWTK.AH '.rittntry m «. dirtcton 

XEIT I 

aosE II 

PIllKT l2,llEHU»(i,l)t '.rill nm ftitry to «« dirictory 
095B 0220 aaSEI2j 'dooi iilJi dirKlory 

"^^FlLEt . RlEHT*lS7RHR£filtl)Ml,UlllSTIlJ(Ra'OTlll-!l ♦ 'REfl.RJP' 

OBBB 0220 

55 
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6 

fiitgrsi Jit Printir FlkiE 5 

Riignt CilUritioa - 07-14-U 

OHiit OstJ Sourci Lini Perwnil Coipvtr BASIC Ccifilir V2.00 



70 086B 


0220 




rJU FILE} FDR OUTPUT US tit ':riit» aw Mtttro diti Hli 


mv 


oao 




niTE tl,ADnil0,O)t 'itori friqoMcy • 


mi 


0220 




VRITE ll,AEin)(t,0): 'itori upliludi 


08DC 


OKO 




URITE ll,AEmt(2,01i 'itori strDbi itU) 


0BF9 


c::o 




niTE tl,l!£tIU(3,0)t 'ttori pdu iidU 


091E 


0220 




mil ll,nQai<4,01i *itori risi tiH 


75 m 


MK 




IdtlTE tl,(lD(UI5,0li 'itvi fill tiu 


0962 


0729 






0962 


0220 




mn tlfKEKUia,!}: 'stort concMtritiDO 




0720 




ffilTE tl,11DtUI(&,l}i 'Itori dMiitr 


09A6 


0720 




HtlTE tl,n£llli«(9,lli -Itori viscoiity 


09C8 


0229 




KITE ll,HOlUtllO|l)t 'iton sarUce ttniim 


20 09EA 


0220 






09EA 


0220 




aOSE tit 'dofti lith iiU (ill 


09F1 


0220 






09F] 


0720 




CPa •REMEF.RJP* FOR OUTPUT AS 11 


CMS 


0220 




PRIKT ll,FlLEIt 'sm filiniti it difault fill 


0A13 


0220 




PRIIIT tl,RENUll64.11: 'stvi tht dinctvy mil » «ill 


25 0A35 


0220 




CIQSE 11 


0A3C 


0220 






OMO 


0220 






0A40 


0220 


SEARCH! 


CMS 


0220 




opEv *mmM?' m ikput as ii 


0A56 


0220 




INPUT tl,)iEAKUlII: 'nil nuibir of pittirns in dir 


30 OAiB 


0220 




n • It '«t «trr pojDtir 


OAtF 


0220 








0220 


SLWPs 




0A7< 


022) 




UHE INPtn It, Alt -riitf nnt pattirn aim k» dir 


0A81 


0220 




IF A$ » KKUt(6,l} THEN E3T0 SEAKCH.DOKE: 'CHMrt nui aith dir ntry 


OAAJ 
OAA£ 


O220 




ll -t u ♦ J 


0220 




IF [I < (REAKUKI 4 1) TKEH SDTD Wi 'chick tor dsni 


OKI 


0220 


SEfflCK.CDKE: 


0AC4 


0220 




aosc 11 


OACD 


0229 






OAOl 


0220 






40 

0AII6 


0220 


TIB: 


'riturn vitb no'chiAqi to nit rN)nt cilibriti 


0220 




Win 13, 'UK'; 


Oft£4 


0220 




CLOSE 13) ' clou CM ctkUHl 


CAE} 


(920 




icniai 


Otft 


0221 






OAFt 


0221 


T2i 


>rKiu *4* kiy 


010) 


0220 




If KMJi ) 5 TNE« mm 


0220 




crriffi - TIKES 


oBor 


0224 




OCLTATIflE • ICVrm • OLDTIRE 


oBtr 


022C 




OLTIHE * HE¥TlltE 




022C 




IF OaTATIIC ) 0.15 THa RIUTI « I ELSE IWLTl • IWLTl ♦ I 


oBa 


022E 




IF iuLTi } toe T}{a nun < 100 


50 

0B9F 


022£ 




icai((!onfi,o} * rou<RE)iin,o) * nEKUiRE)iin,3i * ru.ni '«dd iKcrtiMt 


072E 




IF REKUtREm,01 } RniUtKEXia,!! TKEM tOUIKE»)l,0) • HENUdtEXUl.Ut 'chick 


OCOi 


022E 




CO-Ofi ISfheOSUI DlSFnENU:fiETURMt 'shoa iti vtlu 


0C1& 


0222 






OCID 


o:2£ 


Hi 




0C22 


022£ 




IF ItEXUZ } S TKEH ttEniRll 


55 


022E 




KEiniHE > TinEI 
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^ Reiotnt Jet Pnntir J!^ { 

Sugint Cilitntion n'u'^ 
jjjj^jj Ljfij IBB Pwsoml Coipulir BASIC CoiDilir V2.0& 

tEUftTHE ■ KEHTIKE - 0LDT1HE 

]F CElTftTIRE > 0.15 THEN RIS-T: « 1 ELSE RUlU « RULTl « 1 
IF RLUI > 100 THEN Win * 100 

flEMlimEHlJl.O) » (1EKUI)1ENU1,01 - HKU1«ENIII,31 • ItUlTI: 'sub intreient 
IF HEHUIHEHUI.OI < nE(lU(JlEKUl,:i THEN nEm}(KENl!l,0) = nEHUlllEHlIl,2h 'chick lin vjloe 
COLCR 15,1:EDSUB 03 EPflENU: RETURN: 'shiw niw wlut 

T4; 'proem up irroa kty 

JF mm BUD i = 0 THEH RETURK: 'in top ro» alreidy 

CIFFI « -l;6DSl)B NEKraUjRETURHi '«« pointir up oni 

15: 'process itui\ *rro» key 

IF RENUl HOB i » 5 THEK RETURNS 'in bottoi roi ilreidy 

DIFF; « IfBOEUS KEWENU: RETURN: 'iove pointer dow one 

Ti! 'process le^t irrw kty 

IF IHTIBEKU: / 61 « 0 THEN RETURN 'in left colmft 4ire»dy 
BIFFI ' -i:60Ei;B KEWEKU: RETURN: pointer one left 

T7! 'process right arrai key 

IF IKTWIENUl / 4» a : THEK RHURK 'in hjht toluifi ilreifly 
BIFFI » 6:BDSUB KEWEHU:SETURK: "iOKf pointer one right 

TB: 'input leys into UKBUFI until (cr) is entered 

IF flENU: ) 10 THEN RETURK 

LDCaTE 25.30:CCIDR Zi^i'.mHl 'ENTE5 HEM VftlUE';: COLOR 15,0 
KEYB'iiFf : M 
mil At 0 CHR((13) 

LOCATE :5,*7:PRl)iT SPflCEMi;); 
LOCATE 25,*7:FRHiI tinm] 
At ■ 

miLE At « " 

At ' IKKEYt 

IF active: • I m immi < tijier then sosub pen.ddkn 

HEKO 

IF At » CHRllBt AN5 LESIKEYBUFI) ) 0 THEN KErBUFJ » LlFT(iKEYBUF!,LEN{l!EYBI)FI)-l) 
IF At ) CHR$(3l) SNO LENdltBUFtt ( 15 THEN UYBIfft « KETBUFt ♦ Al 

VENQ 

IF REXUl > 3 THEN SOTO STQEESTRIXfi 

lERP * VAIUETEOFI) 'teip bat vilue fciys input 

'round off teep according to step siie in una irray 
TEK? - miTERF / WEWHr.:SUl,31J ♦ .51 i ftEKU(nEm,3) 

*teit TEKP for taim tnd iiniiui viluei in leni arrty 

IF TEUP > «£SUIflENUI,II THEK TEKP « BEKUtKEKU:,!) 
IF TEW < BEWHJ1EHD:,2) TKEH TERP « REHU(REHUI,21 

'insert nei value into lena arriy and upditi screen 

(lENmREJIUl^OJ • TERP 
LOCATE 25,30:PRHn SPACEtUOlj 



OHsft 


Data 


1/1 0C3B 




0C4B 


o:3E 


0C55 


o:2E 


0C77 


02:e 


OCB? 


023E 


OCCB 


022E 


m 0D32 


023E 




022E 






0D4E 


fl32E 


0Dt3 


022E 


0D74 


0230 




0230 


0079 


0230 


ODBF 


0230 


OOAO 


0230 


ODAO 


0210 


ODAS 


0250 


25 O0C5 


0230 


ODDb 


0210 


0DD6 


0230 


0DD6 


0230 


ODFE 


0230 


OEOF 


0230 


SO OEOF 


0230 


CE14 


0230 


flE23 


0230 


0E55 


0230 


0E5F 


0234 


CE72 


0234 


35 dtBF 


0234 


0ER9 


0234 


0EB3 


0234 


0EC2 


0234 


OECC 


0234 


OEF& 


0234 


0EF9 


0234 

r 


or3B 


0234 


0F75 


0234 




0234 


on? 


0234 


OFBB 


0234 


OFBB 


B234 


0F9B- 


0236 


0F98 


0238 


0F98 


D23B 


OFSl 


D23B 


50 


023S 


OFOI 


0238 


1019 


0238 


104F 


0238 


io4r 


0238 


i04r 


0238 


55 


0238 



22 
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Uimi Jet Printrr 
Ria^int Cilibritifin 



DIfiit liU Sourci Lini 



m 7 

lU PriMil tfliputir BftSIC.Cwpilif V2.0C 



TO 


im 




CSia 0,7:6SStIB PlSPEHl) 


m 


0236 


S£TUW 




m 


D2» 






m 


523& 






mi 


0238 


fl£NWirC!MI,I) « mSUFI 




m 


023B 


IDUTt 25,Z0:PRIWT SPACEt(«)) 


75 


m 


023a 


tOLDS 0,7i&DSU8 DISPHENU 


m 


0233 






m 


0238 






m 


02:s 






10F7 


0738 


MWrnS . TIICR ♦ 1 




1107 


023B 


PfilKT I3,V( 


20 


UI7 


023B 


RETUM 




liiB 


023B 








033B 


MYKEYt 




1120 


0238 


LOCATE 2S,MiP«»tT 'Strike tny kty..*; 




nu 


4238 


Al«" 




uu 


023B 


WILE AS • 


25 


us; 


023B 


M * IKKEY> 




USD 


02J8 






UiO 


0238 


LOCATE 25,l;CaOR l5,0;ffilllT SPACE* t??)}! COLOR 15^1 






0238 


tuvm 




m 


0238 


OIEKU: 'riti eld vtM in ffiloi, point to ind higbligkt nw ilM 






0238 


30 




0238 


COLOR M.OiEOEUB DISPKEKU 




uei 


0238 


mil « HEWU ♦ OlFFl 




UGD 


0238 


IF (lERW • U This HENUI • 10 




IICF 


0233 


IF REKtil > 15 THEK HENUl • l5 




IIEI 


023S 


COLM 0,7:B0SUB 015FnEHU:«TWI 




11F7 


Q23B 




35 


IIF? 


023B 


nniALIZE: 




HFC 


023B 


'chingr to iKoni icretn ind displiy •rssifii 




MFC 


023B 


SCREE* 0,0,1,1:CI1LOII 7,0! CLS! LOCATE 10,:8:PR1IIT Mnitiilinnj Nittu DiipUy'l 




1240 


0236 


LOCATE 12,3::PRIIIT 'Pliiif 




12U 


0238 




40 


l2Sli 


0238 


'initiiliit vtriibin 


12Slk 


C238 






iSft 


OISB 


KllVtl * 9i AOl prinill| 




nil 


D23t 








0231 


'ililiilizi plDtltr coi ch>Mtl 




lUl 


0231 




45 


I2bt 


0331 


oral ■coni:2ioo,ii,e,2* as n 


1273 


0231 


PRIM l3,'jitfEC5,£FVl,H') 




1263 


0238 






12S} 


023B 


'InitiiUxe difital port 




12B1 


0238 


SOS « 4 




128A 


023A 


CAU nenAL.DUKSCRX) 


SO 


129* 


023A 


son « 0 


I2ftl 


023A 


CAU BlBllAL.OUTISCRDi 'pulw nut liof to lit iiplituii ii OV. 




12B1 


023A 


SCHM 




me 


023A 


Ua PIBnAL.OUTISCRl) 




12C8 


C23A 






12CB 


023A 


ui hirdmrt Dulsi •idtli 


55 


t2CG 


023A 


CALL SET.ODT.tllOIHlS) 'i& loduli PCI 
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Riigwt *it frinttr 
OHitt- PiU Source une 



PAEE t 
07-14-84 
12:24157 

IlKPtrjcMl Coiputr WSIC Coipiltr V2.00 



JC 12CE 
12&E 
12DE 
12E5 

m 
nil 

T5 ilTt 
138r 
138F 

20 m 

13FC 
I41S 
1434 
1434 

25 1432 
144E 
14BA 
14A4 
14C2 
14C2 

30 i4i;9 
14C9 

m 

14C9 
I4E4 
t(E4 
35 1507 
150E 
1S18 
156F 
158A 
1594 
140B 
1424 
1421 
1437 
144i 
t48S 
t48S 
148S 
1471 

m 

UOF 

m 

1729 
174B 
17BE 
171)2 

55 IBl* 



40 



45 



50 



02:c 

022C 
023C 
02S: 

e?3C 

023C 
023C 
023C 
923C 
«2X 

o:3c 

e23C 
t23C 

one 
«23i: 

023C 
023C 
023C 
023C 
0Z3C 
023C 
023C 
023C 
023£ 
023E 
02S 
023E 
02:£ 
C23£ 
023E 
023E 
021E 
D2X 

fl73E 
023^ 
02S 
923E 
ISt 
0244 
1244 
0244 
0244 
0344 
0244 
WM 
0244 
0214 
0244 
0244 
0244 
0244 
v244 



'iAitialiif m\i arriyi 
iSSim AKKDATA 
FOR IW TO 17 

READ r(EfiI]fai,Ot,nENUtt[I,]l: 

READ ieU(ll,l),BEIRJtIl,21,«Dai(Il,3),HE»lllX,4) 



'Ri itinli nasent valuit 

|QQ)[0,01 « 2000; 

)eU(l,0) > 0: 

KEM)(2,0) ' It 

)(EttUt3,01 « 090i 

KE»I[4,0] * 4701 

KE)nitS,0} » 070: 

l!EKU(4,0) ' Ol 
10)81(7,0) > Ol 
)IEKU(8,0} > 0: 
ll£WI9,0) • 0: 
KEKUIlOiO) > 0: 

xe.Anp.vALun • o 



'npUtutfi 
'strobe itUy 
'pulti Midth 
'rise tiM 
'fall tiK 

'mm 

'cenctntratim 

'detiiity 

'viscoiity 

'itifUtt tmioa 



'iftitiil «tue 0* 0 voUs 
■ch*nqe Ktl« displiyetf scrim to iini $cr«n to drm wd diipUy piriiiliri 
StREEN 0,0,0,l:a5 

CaOR 13ilOCAU 1,3;:PRIk; 'ftEAfiEUT KLIERATE*; 
FDR 1*2 TO 79 

LOCATE 3,I:PR1HT 'D^pLOCATE 5,I:PRINT TjtLOCATl 19,1:PRIIIT 'J') 

KEZT I 

FUR 1*4 TO 19 

LCCATE laiPRIHT TstLOtATE I,2B!PR1NT •.-'jtLCHTE I,61:PRIIIT •.-pLDCATE I,80:PRIKT *Vi 

«!! I 

RESTORE TABLE 
FOR 1«1 TO 12 

REM Rl,Cl,Itl:LOCATE Rl.aiPRlRT C«lllK)| 

1E1T 1 

•priBt IhrM heiiiingi *nd initruttioii 
COLOR 10,0 

LOCATE ^,h?m 'm PtRARETERS'j 
LOCATE 4,39:PR1NT 'REfiBEW PARftnUERS' 
LOMTE 4,7l:PaJllT *tt73mV\ 

COLOR 7iL0:A7E 3J,:0:PR1KT 'Dii ••.iCOLDfi mm CHRII27l!CHJlfi:2);CHRl(241i 
PRIHT CHfiH32)iCKR*(!4)iCH)!lC3:);CHSH25)3:CaOR 7:P?.»IT ' tc position highliqhtid cursor*! 
LOCATE :;,lfi:Pill«T 'Hie 'pCCLOR !5:PHIKT 't^tCOLOR iJPRW ' or 'jiCOLOR lliPRlRT '-•} 
COLOR 7:fRIHT' to scroll currtflt vilue up tr oo«n*l 

LOCATE 23,24:PR1KT •\tit 'pCDLOR 15:FRHIT 'ir'pCOLOR 7:PfllllT' to ictivati wliction'l 



24 
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JO 



15 



20 



Ri^t iti Printir 
Riignt CAlibratton 



£5 



30 



35 





uu 


Source Lini 


IBM 


0244 


DISP.PARrSi 


IBI9 


0244 


'ditpUr IS "i"! choicit in yellM 




0244 




1819 


0244 


COLOR 14,0 


1625 


0244 


FOR HEWJl • 0 TO 17 


1626 


0244 


sosuB cispnou 


m 


0244 




1841 


0244 




tB41 


0244 


'wt for Tumi niir and highlight it 


IB41 


0244 


KEXUt >.b:CDiO!t 0,7 


1BS4 


0244 


605UB ([SPnEttl 


IBM 


0244 




t8» 


0244 


SCREEN 0,0,0,0 


le&r 


0244 


RETUM 


1873 


0244 


fiEn tPftSE 



67-14-84 
12i2it57 

m PirsMil Coipvtfr BftSIC Coipilir V2.O0 



40 



45 



50 



55 



25 
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5 



R(i?fl>t hi friiitir 'WE 10 

Siigm C«IibritiDi 9hU-U 

^^Offitt Ml Soy-rce Lint Prssnit Coipttr BASIC Coipilir V2.00 



1673 


MM 




167e 


02U 


LCWTE mimm i)i2^7,(HlT(ffiWIl/6M28*2)*l5iIltTlllD!UX/l2J 


\m 


0744 


pRiKt nEKUimuniZiO) 




0Z44 


IF imt ) 5 T>B GOTO SHOUSTRlKBi' bd vilse ts diipUy 


1901 




Loun inim m i)4;t7,KENuiKEKux,4i 


1933 




F-fiiiiT USING REHus(nEm,ii|reu(nE)aa,0); 




02M 


IF leux } 2 THEN mm 


m 


0344 


K HENUIM EDSUB SET.FREO, Sn.AKPf SET.KUT 




0244 


RETURN 


19GF 


0244 


SKSfSTSHISi 


0244 


IF mm ) 10 THEN RETURN 


19i£ 


0244 


LSCATE (HEHUI HDD 6)12+7,48 


19BA 


0244 


PfllH • 


19C7 


0244 


LOCATE (RENUl HOD 6)i2«7,48 


m 


0244 


PRINT KENUttNEHUlfl) 




0244 


RETURN 


1A06 


0244 




m 


0244 


Sn.FRED: 


im 


0244 


TEH? « BEWHO.Ol 


im 


0344 


CALL SET.DOT.RATEtTEK?): 'ie Mduli PCI 




0244 


L£S1 » 3-IKTMTE)lP*500>n0001 


30 1M7 


0246 


IF IBl < 0 THEN LECI * 0 




mi 


SCRl - 4 « tUOI 1 321: 'itt lES iDtHSity 


iAg9 


0244 


CALL &I6ITAl.DUTt5C«Ili *in wdull PCI 


IA99 


0246 


ROURN 


1A9& 


0246 




1A90 


0246 


SET.AnP: 


55 mi 


0246 


5CRX « ClNT(HENtr(PENU:,31 i III / 150): 'convirt voJtt to binary nuit>ir 


m 


0246 


IF scr: « olc.aiip.value: tkek retukn 


lADC 


0246 


TERPl « SCRI • OlD.ARP.vALuEl: 'tilculali ttilU 


lAEB 


0248 


DLD.AnP.VALUEl = SCfll: 'updati old vilui to corrtnt vilut 


lAEF 


0243 


DI6.VALZ « 6 


m 


e24A 


IF TERPI < 0 THEN DIB.VftLl « 5 




o:(A 


TEXPl * AESITERPII 


\m 


0248 


FOR JI * I TO TERPl 


1&22 


024C 


SCRI « 0I6.VAL1 « 


iBsr 


02(C 


CALL DISlTAl.OintSCRZ): 'pilu higbr or lonr 


mf 


024C 


SCR: • 4 « (n « LQl) 


im 


024C 


CAU CieiTAL.OUTISQtlli 'iit port to norul 


^5 1I7F 


024C 


cn II 


lB9t 


024C 


EETUn 


1I9J 


02U 




iB9a 


024C 


Sn.fiEUTi 


lt9A 


024C 


TEKP « unfUtS.O) 


IBBb 


024C 


CAU SET.STROBE.DELAYITEUP)] ■ 'Id uduli PCI 


50 tgci 


024C 


RETURN 


IBCA 


024C 




IBCA 


024C 


m IPAfiE 



55 
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5 



Rtigint Jit Frintir 
^Qftii9int Cilibratififl 



(Hfift 


Vila 






lECA 




•iMHMiHO BATfi USED BY THIS RQ5ULE *" 






024C 




75 


IBCA 

m 


024t 


AKRDATA: 

DATA 'Frequency 




m 




(ATA 'Aiplitttdl ^ 'i' 




im 




DATA 'Stroiie uS*,* 




tBDS 




DATA *Pulli Vidth ',' 




tBD7 




DATA *Sisi Till *i' 


20 


im 


Mir 


DATA 'Fall Till */ 


\m 




DATA *Hati',**,0,O,0,0 




im 




DATA •C!incintrjtioii*,"iOtO,0,0 




im 


634C 


DATA 'DiMity*,",5,0,0,0 




m 


Villi 


DATA •Viitoiity',", 0,0,0,0 




\m 


054C 


IIATA 'Surfacr Tension*/* |0, 0,0,0 


25 






MTA ".•'.0,0,0,0 




1BE7 




DATA •STfiRT\",0,0,0,0 






02IC 


DATA 'IWr,", 0,0,0,0 




\m 


654C 


DATA 'SAVE*, ",0,0,0,0 




m 




DATA •EIIT*, ",0,0,0,0 




IBEF 


024C 


DATA ",",0,0,0,0 


30 


IBFI 
IBH 


024C 
024C 


WIA ",",0,0,0,0 




1BF3 


024C 


TABLEi 




IBFB 


024C 


DATA 3,1,216 




im 


024C 


DATA 3,2B,210 






024C 


DATA 3,6!,210 


35 


IBFE 


024C 


DATA 3,80,191 




icoo 


024C 


DATA 5,1,I9B 




ico: 


024C 


DATA S,:B,206 




1C04 


021C 


DATA 5,6l,20i 




\m 


024C 


DATA S,B0,18t 




m 


024C 


DATA IM.m 


40 


ICOA 


024C 


DATA 19,28,208 




ICOC 


024C 


m 19,69,208 




ICOC 


024C 


DATA 19,60,217 




ICIO 


024C 






ICIO 


024t 


E1ID SUB 




1C17 


024C 




IC17 
33EB- 


024C 
D24C 






50t2& BytM ftviiUhlt 




43S6C lytii FrH 



;>A6£ u 
07-ll-W 
I2:2ii57 

[EH Piriooil Coiputtr BASIC Coipilir V2.00 



Hi*,MI,«r, 10006,1, 1,14 



50 



0 Virninq ErrortiJ 
0 Sfviri Error{s) 



55 
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Reaoent Jtl Printer [fl [ 

Pattern Entry/ham Hcation l!;?. 

Offset Mi Scurcj Line IBS Persanal Cciputer BftSlC CoipiUr V2.00 

0030 0036 KER ITlTLEi-Reacent hi Printer' JSUBTITLE; 'Pattern Entry/Kaiiif 
icalion' 

0030 0006 'mvii - •PfiTEHT" Pattern creation, lodification, and fiiinq 
0030 0004 * 

0030 COOA 'AintiCR - N, A. Enevold 
0030 O0C6 

0030 OOCi *COPtRlBHT ICJ I9B5 RBBDH LftBDRftTDRIES 
0030 OMi ' 

0030 MOi -wmm - 1.2 03-10-Bfa NftE Reiove Kouse inputs 
0030 0006 ' Ul 02-20-Bi KfiE Add BO pattern liiit to save 

OO30 D006 • 1.0 0I-13-B6 NAE Creation of initial code 

0030 O006 * 

0030 0006 'SYSTEM - This code m only be coapileri by the BA5C0II 
0030 0006 • CDRPIIER, it Kill not run. under the INTERPRETER!! 

0030 O006 * 
0030 OO06 * DESCRIPTION! 

O030 O006 ' This loduii allaws the user to LOAD, SAVE, DIRectory, D 
RAV and 

0030 .0006 ' enter repeat count and other parateters for a pattern t 
0 be printed. 

0030 0006 * The lon-reaolution graphics lode is selected and a lenu 
is displayed 

0030 0006 • across the bottoi of the screen. Usinq arroit keys 
0030 0006 • point to the action to be talen and then invoke that ac 
ticn iiitfa the 

0030 0006 ' Enter key. In the CRA« Mfle, another lenu is 
0030 0G06 ' displayed »hich aUo»s the user to select froi LINE, RE 
CTanglBf 

0030 0004 ' Solid RECTanglei or-EIRCle pattern eleients. 
0030 0006 

0030 0006 'DATA DICTIONARY 

0030 0006 • 5CNBAT1(50,5} 51 Ron (Ehients) by 6 Coluin array f 

or storing pattern eleients 
0030 0006 * CURS0R1{9) Storage for cursor-graphics icon 
0030 0006 ' «EKUit6) Up to 7 lenu na»es can be savefi here 

0030 0006 " ' aHUn: count of nuiher of eleients in i patt 

eri 

0030 000& • n Y: Current location of graphics cursor 

0030 0006 ' ^ID Value of one dot space on the screen 

(default is O.OOS') . 
0030 0006 • ROW CQII Location to print instructions 
0030 0006 • « Btorage for single key-strokes or inp 

ttl strings 

0030 0006 ' REKUHUH Wiich lenu is being displayed tl or 2 

J 

0030 0006 • ITElt Pointer to which lenu itei is highlig 

bled to - 6) 

0030 0006 ' REPEATl Kuiber o( tiies pattern is to be repe 

ated khen printed 

0030 0006 • lOrP YOFF 1 and Y axis distance between the pri 

nting of repealed patterns 
0030 0006 ' ROUSP COLSP Roi and Coluin spacing for printing i 

ultipU sets of patterns 
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lumt hi Printer 2 
Pattern L-.trv/Hodification 07-05-B& 



DHset 


Mi 


Source Line IBN Personal Coiputer BASIC Coipiler V2.00 


0030 


CC06 


PATKUM . Nuiber of patterns stored in 






the pattern directory PftTDIR.RJP 


0030 




DRDVt DCQLI Rd» and Cotuin location to display di 






rectory eotrys 


0030 


mh 


NAKEI Pattern nan to be LDADed or 5AVEd to 






directory 


OO30 


mh 


II 3Z Counters used to LOAD or SAVE the ele 






tent data froi/to pattern data file 


0030 


000& 


FILES Naie of pattern data file 


0030 


0006 


TDIPI Uhich type of ileient is being dravn. 






1 ' Line 2 ' Rectangle 


0030 


0006 


• 






3 * Solid Rectangle 4 > Circle 


0030 


0006 


aA&t Saie as 7EHPI above 


0030 


0006 


STARinsei EKDKSES nessage display for stirtpoint and en 






dpoint of eleient entry 


0030 


0006 


III Yll Starting cursor position for 






eleient beinq draiin 


0030 


0006 


m m Delta t and Y values used to 






re-pDsition cursor after arrow key 


0030 


'0006 


RAIITEH The highest nuiber itet in th 






c current ^enu display 


0030 


0006 


]S IE Starting and ending I position of the 






lenu highlighting blue bos 


0030 


0006 


RADtUSZ The calculated radius of .a ci 






rcle to be displayed 


0030 


0006 


REN IPA8E 



29 



0 268 237 



Reaaent Jet Printer ^^^l^] 
Pattern Entry/llDdification JJ'J™ 

Source Line IBS Personal Coiputer BASIC CotpiUr V2.00 

SUB PATEHTRV STftTIC 

«IDTH 401SCREEH IrCLS 
Din SCKDfiTl{50,5) ,CURS0RI(9) .OU* li) 
EINUHI = 0;XI=0:n=0;BflID = 0.005 

LIKE (0,01-tfc,6)„B 
UN£ (0,31-{t,31„B 
LIHE {3,01-(3,i)„B 
PRESET (3,3) 
BET iO,0)-U,il,CURStiRI 
CLS 

LIHE (0,0}-(319,190),,B 

RESTORE INSTRUC 
FDR 1»1 TO 4 

READ ROill,COLI,At 
LOCATE RDt(l,COLl:PRlHT AS) 

NEIT I 



Offset 


Data 


0030 


0006 


0047 


0006 


0047 


0006 




0006 


oo&o 

VVBV 


029A 


007F 


02A4 


fl07F 


D2A4 


vWni 


02A4 


DOCS 

Wit J 


02A4 


00E9 


02A4 


00F5 


02A4 


0116 


02A4 


OllD 


02A4 


OUD 


02A4 


0140 


02A4 


0140 


02A4 


0147 


02A4 


0151 


D2A4 


0164 


02AC 


0180 


02AC 


D19B 


0260 


0196 


02B0 


OlAO 


02B0 


OlAA 


0264 


0160 


0264 


OIBO 


0264 


OtCD 


D2B6 


OlDO 


02B8 


0100 


026B 


01D5 


02Ba 


01E9 


02BB 


OlFB 


02SB 


0218 


02BA 


0235 


02BA 


0255 


02BE 


0272 


C2BE 


0292 


C2C2 


0296 


02C2 


0Z9B 


02C2 


02B2 


02C2 


0266 


02C2 



FIRST; 



mmK « 1 

BDSUB SUBKEKU 



ON ITEH ♦ 1 GOTO PATOIR, PATLOAD, PATSAVE, PATDRAH, REP 
EAT, PATEIT 

eOTO FIRST 



REPEAT: 



G05U6 ITEKBOIERASE: 'erase blue bon around DIR 
LOCATE 25,1:PRIKT 5PACEH391; 'erase lenu line 
LOCATE 25,1: IHPUT; 'Enter Repeat Count 'jREPEATl 
LOCATE ;5,1;PRINT ErACEH391i 'erase lenu line 
LOCATE 25, hlHPUTi 'Enter I Axis Offset ',IOFF 
LDCATE 25,1:PRINT SPACEJtS?)} 'erase eenu line 
LOCATE 25,l:lKPUT;'ErtBr i Axis Offset '.IfOFF 
BGTO FIRST 

PATEIT: 

KIDTR 60:SCHEEK OtaS 
EXIT SUB 
REB IPABE 
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Reagent hi Printer ^^^^ ^ 

Pattern Entry/HcdiHcttiDn 07-05-B6 

10:46:13 

Source Lint IBK Fersoriil Co-spuier BASK CotpiUr V2.00 

PATDiR; *li5t Sirectory of patternB 

B3SliB ITEHJOIERASE: 'erise blue box around DIR 
LOCATE :S,l:fRIHT £PACe${391; 'erase lenu line 
OPEK 'PATDIR. RJP' FOR INPUT AS III 'open directory 

INPUT 11, PATKUnii 'read nusber oi patterns in dir 

ectory 

LIHE (l.D-tSlB.lfl'fl.O^BF! 'erase graphics tablet 

I s 0; 'set counter 

DISLODP: 

I s I ♦ 1: 'set iur next value 

IF 1 > PATNUni TH£N GOTO DIREJIT: 'test for done 

IF iHTni-n/Mi (> a-n/« then goto shonneh 

IF 1KT((MI/«1 < 1 THEN GOTO SHDHNEXT 
LOCATE 25,1:PR1HT •Kore to Display. Continue ? (Y or N) 

I, 

GDSUB CDRLODP: 'wait for Y or N response 
IF At « 'N' THEN BOTO DIREIIT: *if N then don't conlin 

ue 

LINE (1,11-<3IB, 189), 0,BF: 'erase graphics tablet 
SKONNEIT: 

DROKl « ({I - IJ MD ::i ♦ 2: 'cakuUte ron for disp 

DCOLl ' 4! 'set coluift^ to 4 

IF HI - 1) m 44) > 21 THEN DCDH * 23:'r"B5et coluin 
if necessary 

LINE INPUT II, A$! 'read neit naie frw directory 
LOCATE DROHt,DCOLl:PRIHT Alj 'PRINT HAKE 
GOTO DISLQDP 

DtRElITt 

CLOSE ll! *teriiMte access to PATDIR.RJP 
BOTO FIRST 

REIl IPA6E 



Offset 


Data 


02B& 


02C2 


02BB 


02C2 


02C1 


02C2 


02DE 


02c: 


02EF 


02C2 


0301 


02C4 


032i 


02C4 


0330 


02C4 


0330 


02C4 


0335 


02C4 


0344 


02C4 


035B 


02C4 


0364 


02C4 


03A9 


02C4 


03A9 


02C4 


03C3 


02C4 


03C9 


02C4 


03DC. 


02C4 


03DC 


02C4 


0401 


02C4 


0401 


02C4. 


0406 


02C4 


0422 


02Ci 


0429 


02CB 


044C 


02C8 


044C 


02C8 


0459 


02C8 


0475 


02C8 


0479 


02C8 


0479 


02C8 


047E 


02C8 


048S 


02C8 


0469 


02Ce 


04B9 


02C8 
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fteagenl Jet Printsr (17-05-Bi 
Pattern tntn^'iodfitation iO'46'lJ 

Ofhet Dato Scree tins IB^ Personal Coiputer BASIC CoipiUr V2.00 

Ci^9£ o:D3 SDSUE ITEflSOlERASE: erase blue oox iround DIR 

0*9< 02CB OPEH -pftTDlR.RJP' FOR INPUT AS II ^ 

0U5 02CB IfiP'JT 51,PATHUW: 'read number of pattfirn5 in dir 

EDSiiB BETKAHE: 'proipt for and input pattern n 

.04BD 02C8 LIKE (l,l)-t3l8,lB91,0,BF! 'erase graphics tablet 

04E2 02C3 

■ 04E2 02l8 BCSUB SEARCH 

04E8 02C3 

04EB 02CS IF » < ^^^™'^ + 1* ^^EK BOTO FOUND 

04FC . 02CS LOCATE lO,U-(LES(NfinEfl/2):PRlKT HAftE*;' not Found'} 

0531 02CE LOCATE 12,1<:PRINT 'BtritE Any Key' 

054B 02CE SDSUB ANVKEY: 'wit for a keyhit 

0551 02CE BOTO FIRST 

0555 02CE 

0555 02CE FOlfflD; ...^ 
• 055ft 0:CE FILE^ = RIEHTKSTRJdl) ,LEH(STRJII11)-1) ♦ 'PAT.RJP 

057E 02D2 OPEK FlLEi FDR INPUT AS II: 'set pattern data file 

for read 

05BF 0232 IKPUT I1,£LNUB1: 'read nuiber of eletents m pat 

tern 

OSfti 0202 IKPUT IliBRID: 'read grid size 

05B3 021)2 INPUT It.REPEATI: 'read repeat count 

05C5 02D2 INPUT II,1DFF: 'read i axis offset for repeat 

0507 0202 INPUT ll^YOFF; 'read y axis offset for repeat 

0SE9 02D2 

05E9 C2S2 FOR 11 = 0 TO ELKUSt - 1 

05F7 02D4 FOR JI = 0 TO 5 

05FD 02D4 INPUT i;,=:«:;rjri,Ji;: 'read file into screen 

array 

0fe21 02D6 HE" Jl 

0fe31 02D6 NEIT 11 

0643 02M CLOSE 11: 'done tilh data file 

064ft '^2U 

0fc4ft 02Si OPEN 'PATDEf.RJF' FCR OUTPUT AS II 

065C 02M PRINT il,FlLEiJ 'save filenaee in defau 

a file 

02Bi PRIKT ll,HA!!£li 'save the directory nai 

t as well 
owe 02W aOSE II 

06B3 02&6 

0iB3 0206 6OT0 REDRAII 

0t87 0206 
mi 02Di SEARCH: 
06SC 02S& 



11 s \i 'set entry pointer 



0693 02 W SLOOP; , ^. 

0696 02»& LIKE ^^^"^ '"^'^ ""^ 



r 



06A5 020i IF M r KAnltTHEN GOTO SEARCH.EHO: 'coapare naae » 

ith dir entry 

06C1 02G6 ■ IF a < (Pfi^WUW ' 1» ^^^^ ''^''^ 
06D4 02D6 5EARCH.EK0: 
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Reagtnl Jet Printer ^^^^ ' 

Pattern tr.trwhciifi cation 07-05-66 

DHset Uta Scurcc Line U« Fersonal Coeputer BASIC CctoiUr V2.00 



OiD9 022i D-DSE >l! '^^ot found so dose Hie and diEolay le 

06E4 ma 

06E4 02C6 iPfiSE 
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Reacent Jet Printer 07-fl5-B6 
Pattern Entry/hodificotion iO'46M3 

ScurcE Line ISJ^ Personal Coiputer BASIC Cotpiler V2.00 

FATSAVE: 

605U8 lTEflE0lE?.«3E: 'erase blue box iroutid DIR 
IF Linm ' 0 THEN SOTO FIRST; 'fio ele«ents in pattern 
0?E« 'PATDIR.RJF' FOR IKPUT ftS II 
INPUT tl.PAT«U« 

IF PfiTHUKl ( 30 THEN SOTO SAVE.FftT: 'dirfctory ^uU 
at BO patterns 
CLOSE 11 

LOCATE 25,l!PfllHT SPfiKHJ?);! 'erase bottoi 1 

LOCATE 25,1:PR1HT 'Directory is full (BO patteriis lax) 

E05UB fiKYKEYiGOTD FIRST 
SAVE.PftT: 

eOSUB BETHAKEi 'proipt *Dr and get pattern na« 
EOSUB SEARCH 

IF U > PATHUHI THEN EDTD ADD. HEU. PATTERN 
LINE (l,l}-t3tB,i89l,0,BF: "erase graphics tablet 
LOCATE lO,l3-(LEK{K;ilEfl/2):PRINT mur already exist 

s.'i 

LOCATE 12,I5:PRIKT 'Replici it?* 
PATNUW « n 
AS ' " 
miLE AJ » " 

At s IHKEYJ 

UEKD 

IF At s 'Y* CR At = 't' THEK BOTD 5AVE.PATTERN 
GOTO FIRST 

ADD.NEW.PATTERN: 

KILL 'PATDIR.CLD*: 'delete old backup directary 
KfiftE 'PATDIR.RJP* A3 'PATOIR.DLD*: "save old direc 

tory 

• OPEK •PATDIR.OLD* FGR IHPUT AS II 
OPEN •PATOIR.Rj?' FCR CJTrUT AS 12: 'set up neti dir 
IKPUT ll,PATKjni: 'read nutber o^ dir entriis 
PATM = FATKUHI + I: 'increase by i 
WITE »2,PATHl]W: 'save in nex directory 
FOR l-l TO PATKUnX - I 

LIKE INPUT tl,At: 'read entry froB old iir 
PRINT I2,AI; 'urite entry in neii directory 
NEXT I 

PRINT i2,NANEI: 'Hrite neti entry to new directo 

ry 

CLOSE IliCLOSE 12! 'done «ith directory 
5SVE.PATTERN: 

FILEt ' Rl6HT$iSTRS[pfiTllUKZI,LENlSTR$(PATNl]«in-n ♦ 'P 

AT.RJP* 

OPEN FILES FOR OUTPUT AS II: 'create new pattern dat 

a file 

KRITE ll,ELSUni: 'store nuober ol eleients 

WRITE I1,BR1&: 'store grid diaension 

i::?ITE 51, REPEAT*: 'store repeat count 
HRITE IliXOFPt ^ "P"^ 

34 



onset 


Data 


OjiE< 


D23i 




02D6 




VtUQ 


06FE 


02D6 


070F 


0206 


0721 


02X'6 


0730 


021)6 


0737 


02D6 






07^E 


02D6 


077B 


02D6 


077D 


mh 


0783 


02D& 


0739 


021)6 


079A 


0206 


07BF 


0206 


07F4 


02D6 


OBOE 


02D6 


0815 


02D6 


UBlr 


vu/Q 


082E 


0206 


0638 


0206 


0B3B 


0206 


0B64 


0206 


oe&6 


0206 


oe&8 


0206 


08&D 


0206 


0B74 


02D6 


0B7E 


0206 


yoor 


0206 


OBAf 


0206 


0BB3 


0206 


OBGC 


0206 


OBCD 


0206 


OBEb 


02DA 


0SF3 


020A 


0903 


02DA 


091E 


020A 


092E 


020A 


093C 


020A 


0941 


020A 


0965 


020A 


0977 


02DA 


098B 


020A 


095S 


020A 


09A9 


02CA 
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ReaoEni hi Printer [ 
Pittern er.trv/f.cdifkoticfi " /SV, ,\ 

Scx'te Une Personal Coaputer BASIC Coipiler V2.00 

■,5j|c ii.YCFF: 'store y axis cHset »cr repeit 

FOR IS = 0 ID ELfiJm - I 
fOR JI = 0 TO 5 

mill ll,SMDfinai,Jl): 'mU screen a 

rray to fUt 

KIT JI 
«EIT II 

a03£ II: 'done nith ^ata file 
DPES 'PMDtF.RJP' PGR OUTPUT AS II 
PRIKT II,FIIE*: 'save filenaie in delau 

It Hie - - - . , 

PRIJIT ll.SfcHEIi 'save the directDry nai 

e 15 nell 

aosE II 

BOIO FIRST 
m IPftBE 



Offset 










02M 


mi 


02DL 


om 


o::c 


OAOO 


02:c 


OAIO 


o:ic 


0A22 


02SC 


OftH 


C21/C 


0H3fi 


02&C 








02I1C 




0201: 




C2DC 
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Rsiyf-.t JEt Printer 'ft" Y 

Pattern tntry/JlDdificatjon 07-C5-Bfi 

10i4i:l3 

Oh'set :5ta ?3iirce Lint I*Ji PerEonsl Coiputer BASIC Conpiler V2.0Q 



OAio 


013: 




Oftir 


c:dc 


GCS'JE IiEm3uJEFm5E 


Ofl7l 


02I'C 


LIKE (J J)-t313.1891,0,BF! 'Erase graphics tablet 


0A5b 


o:sc 




OA^i 




KEITELi 


0A9E 


mz 


KSl'SUn s 2 


OAAS 


02K 


ECS'JB S!;£*.EXU 


OAAB 


C2SC 




OAi^B 


C2uu 


Cfi ETEH + I 63T0 ALIKE, RECT, BflECT, ACIRCIE, REDRAW, B 






ftCKUP 


oa:s 


025: 


£0T3 KEHEL 


ORCB 


mz 




OACB 


mt 


BAC^iUP: 


OADO 


mz 


BOSDB ITEftBDlERASE 


OADb 


02&C 


60TD FIRST 


OAQA 




• 


OADA 


mz 


ALIKE; 


OADF 


02DC 


TE«P1 = 1 




025E 


B7AR7«SS$ = 'STARTIUS EHDPDIKT' 


" OAFO 


02E2 


ENDHSSI = *EHDIN6 EfiDPOlNT ' 


OAFA 


02Ei 


80T3 ENTERELEKENT 


OAFE 


Q7U 




OAFE 


02E& 


RED!: 


0803 


02E6 


TERPI = 2 


060A 


02E& 


BQTD mm^ 


OBOE 


02£i 




OBOE 


02E6 


SrtECT: 


0B13 


C2Efi 


THI1?1 = J 


06]A 


02EA 


F:ECTR3S: 


OBiF 


02Efl 


51ARTI1SGJ = ' START! liS CLRNER' 


0B29 


02E6 


EJJI.".£5t = 'EHDISG CGWER • 


0B33 


02ti 


KITD EKTERELENEMT 


0B37 


C2U 




ob:7 


dlU 


ft::F.ClE: 


0B3C 


C2Ei 


TEBPl = 4 


0&<3 


02E6 


STAnT)l££J ' 'CENTER OF CIRCLE' 


064D 


02E6 


DCffSSI = 'POIKT on CIRCLE ' 


0B57 


02E6 




0B57 


02E& 


ENTERELEKEMT: 


06SC 


02E6 


f>n~iiB tTrwiintrPTC 

EuhIe tTERtlOIEtmSt 


am 


02Ef) 


FLABlsO 


am 


02EB 


LOCATE 25,l:rRIKT SPflCtlliii; 


0S86 


02EB 




06AO 


02EB 




0BA& 


02EB 


nSDSTAST: 


OBAB 


02E8 


SQSUB KC'JSEACT 


mi 


02ES 


IF AJ = CHR«i2?J THEX SOTO AMRT 


06C8 


02E8 


IF Af = CKRI(13) THEV 60TQ SETSTftRT 


OBSF 


02EB 


BOBUB DURSORriOVE 


0BE5 


02EB 


BtJTD flli'DSTART 


OB£S 


02Ee 


AJ08T: 


OBEfi 


02E8 


GDSUB PLrCECURSOR 


06F3 


02EB 


60T0 REITEL 


0BF7 


02E8 
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Reaoent Jet Printer PA8E 10 

PattBrn Enfcry/Hodification 07-05-66 

10:U:13 

OHset Data sourcB Ur.e IBH rerscnal loipuier BASIC ConpiUr V2.00 



0BF7 


02EB 


EETSTASTi 


obf: 


o:e8 


icrATH :5,iiFfiiNT imssu 




02ES 


FUel » TEHPlilU = UtYII • ¥1 


0C26 


02EC 


IF FIASI • 4 THEN P5E1 (IX**,YI+4) 


0CS5 


02EC 


FISrENOl 


0C5A 


02EC 


EuSUB rOUSEACT 


OC£0 


02EC 


IF Af s CKRI(271 THEK GOTO CAKCELEL 


OC77 


02EC 


IF A$ = CHF($(131 THEN GOTO SAVEEL 


0C8E 


02EC 


GOSUB CUHSCRROVE 


0C94 


02EC 


GOTO rmm 


0C97 


02EC 


CANCELEL! 


0C9C 


02EC 


EQSUB PLACECUR5DR 


0W2 


02EC 


ON FLAGI GDSUB ERl, ER3, ER4 


0CB3 


02EC 


FLA5I = 0 


OCBA 


02EC 


60TD NEJTEL 


OCBE 


02EC 


SAVEELi 


0CC3 


02EC 


60SUG PLACECURSDR 


0CC9 


02EC 


IF FLAG! = 4 THEN CIRCLE (niM,YII+4),SQRt(IMll)''2*l 






¥I-Y]1)*2),,,,1 


0032 


02EC 


605UG CORRECT 


DD38 


02EC 


IF AI«*X' THEN GOTO REIRfiW 


0D4B 


02EC 


STDREEL: 


0D5O 


02EC 


SCNDATItELHUI1l,0) = FLASI 


0D6A 


02EC 


SCNDATKELNUfll,!) « 111 


0D85 


02EC 


SCKDATKELNUnia) = Yll 


ODAO 


02EC 


scj;:ati(elnuhi,3i = n 


ODBB 


02EC 


SCKDAT:tELKUtt,41 « t: 


ODH 


02EC 


SCK5AT:tELKJHl,51 ' 0 


ODEF 


02EC 


ELH'dK = ELHURI * 1 


DDFB 


02EC 


FLASI s 0 


ODFF 


02EC 


G3T0 KEITEL 


oeo3 


02EC 


m ypAGE 
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Reagent Jet Printer J". 
Pattern Entry/hocifi cation ^f" " 

Offset Data Ecurce Line ISH Perscnal Cafiouter 5A3i: Coioiier V2.00 



OtOJ 


02EC 




0E08 


C2EC 




OEOE 


02EC 


iTurji n.nts IflQl ft TiF 


0E33 


02EC 


IF tLND*l * 0 IHtJi oOlO NLIItL 


mi 


02EC 




0E« 


02EC 


Fuf 1=0 TD ELHUn*-! 


0E5B 


02F0 


nu erun^Tirn r\\ CDCIID Pfti Dft? tB^ BOI 
ON bvNDHtlU,y) bUtuo KLfl, nui^ tkU^^ nv^ 


OESi 


02F0 


HEIT I 


0E9C 


02F0 


BOTu KEHEL 


OEAO 


02FO 




OEAO 


02F0 


'tittffif Sub-routine5 called oy Hin lOBuie «»tt*t«t 


OEAO 


02F0 




OEAO 


02F0 


SUBHENU: 


0EA5 


02F0 




OEAS 


02FO 


LOCATE 25,]:PR1HT SrhitHiTJi 


(;EC2 


02F0 


OH JIEKUNUn BDSUB HEHUl, KEN112 


OEDl 


02F0 




OEDI 


02F0 


FOR 1=0 TD & 


OEDB 


02F0 


READ HEKUJin 


CEF2 


02F0 


LOCATE 25,(I>6J*2:PR]HT KtKUJtl); 


0F2B 


02FC 


NEH 1 




02F0 




mh 


02F0 


READ HAXITEH 


0F4D 


02F4 


ITEfl = 0 


0F57 


02F4 




0F57 


02F4 


HEWITEH: 


0F5C 


02F4 


E051I6 HEKITE!190X 


OFj.2 


02F4 




0F62 


02F4 


NEniTEHi 


0Ffc7 


02r4 ' 


BDSUB ITtr.bEnRi.H 


OFiD' 


02F4 


4» _ r'jfi* * 1 1 1 T'^ru DCTUBUi ' TTfX hat rnrrnrt valiiB 

IF Al - CnKSlljl trtn Ptiui\n; iitn uii LorretL irdiuc 


0FS4 


02F4 


IF LENtnJI < 2 intK Bttr'.oUio htiuitn 


0F9A 


02F4 


IF ASCiC.IOlfi^r,!)! * 75 THEH BulO LirTAR 


OFfib 


02F4 


IF ASClfllDflfil, 2,1)1 = 77 THEN BuiD RIbriTfiR 


0F02 


02F4 


BEEP:GOTO HEITITtft 


0FD9 


02F4 




0FD9 


02F4 


LErTAR: 


OFDE 


02F4 


IF ITtn - V IntN bUlU Nblllitn 


OFEE 


02F4 


enpiifl iTCHDmro&cc 
dOSuc ncRsUlkKHbL 


0FF4 


02F4 


iTrM • tTCi — 1 


1003 


02F4 


cUlU ntll itn 


1007 


02F4 




1007 


02F4 


RlbHTARi 


lOOC 


02F4 




lOlF 


02F4 


60SUB ITERBOIERASE 


1025 


02F4 


ITEK « ITER ♦ 1 


1034 


02F4 


eOTO KE'.11TEN 


1038 


02F4 




1038 


02F4 


HEKUl: 


1030 


02F4 


REBTDRE KNl 


.1044 


■02F4 


RtTURN 


104B 


02F4 




104B 


02F4 


KENU2I 


104D 


02F4 


RESTORE HK2 
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ReagBnt Jet Primer PABE 12 

Pitteri! Enlrv/'ftc;i:icatiDn O7-05-B& 

10:46:13 

OtfsEt :;ti :;urcs Line IBH Personal Ccaputer EfiSIC CoEpiUr V2.00 

1054 01'4 fiETURH 

1058 C2F; 

105B 02fJ n^^'crA.RDHt 

1051) 02F4 AS = \mmiT AJ <> " TKEK RETURN 

107fi 02F4 WTO ITtllSEflRCH 

107» 02F4 RETVRM 

1081 02FA 

1083 02r4 K-EHlTERoDI: 

I08i 02F^ IS » (ITEHMBl ♦ 7 

1090 02fB IE = CTtflMe) + 8 * LEK{RDiU$(lTEHl)*a 

lOD? 02F: like (JS,191)-aE,199),I,a 

1101 02FC RETDWt 

1105 02rc 

1105 02FC UE^iDlERASt: 

llOA 02FC LINE (I5,191)-tlE,n71 ,0,B 

1131 02FC RETURH 

1135 02FC 

1135 C2FC PLACECURSDR: 

I13A 02FC m (JM,YM),CUJ<SCRl 

1157 02FC - RETURK 

U5B D2FC 

115B 02FC «OUSEACT: 

ii&o 02FC sosuB mm 

mh 02FC DII = 0 ! DYI * 0 

1174 0300 IF AJ = CHRIIO) ♦ CHSn721 THEN DYI s -l:RETl)RN 

119D 03M IF fl$ = CHRItOI ♦ CnUlBOl THEN DYZ = 1:RETURN 

tlC6 03W IF ft$ = CHRJtOl ♦ Ch;ii771 THEN Di: = URETURH 

UEF 03M IF A$ = CHRMO) ♦ Iritm THEN DII = -l:ftETURN 

1218 03M IF A$ = 'B* THEN Orl > •20:fi£TURS 

1232 0300 IF AJ = '2' THEN OYl » :0:RETURH 

124C 0300 IF Al - *4* THEN DII » -20:RETURN 

12ii 0300 IF Al * '6' THEN DH = 20tRETURN 

12B0 O300 IF Al = CHRI127I THEH RETURH 

12S7 0300 IF Al = CHRKUl THEH RETURM 

12AE 0300 60TD HDUSEACT 

12B2 03D0 

12B2 0300 CURSGRfUVE! 

12B7 0300 605UB PLACECURSOR 

1260 0300 DH FLABI EDSUB ERI, ER2, ER3, ER4 

12CE 0300 n * u ♦ on j vi « yz ♦ m 

l2Ei 0300 If U < 0 THEN 11 * 0 

t2FB 0300 IF XX > 311 THEN II * 311 

130S 0300 IF n< 0 THEH Yl « 0 

131D 0300- IF n > 182 THEN YI t 182 

1330 0300 DM FLA8I EDSUB DRl, DR2, DR3, SR4 

1341 0300 EDSUfi HSPCURSDR 

1347 0300 KETURX 

134B 0300 

134B 0300 CORRECT: 

1350 0300 LOCATE 25,l;fRlNT SPACElt39)j 

13iD 0300 LOCATE :5,1:FRIKI 'IS THIS CORRECT? (Y or H) 'j 

1387 0300 CCRLODPi 

138C 0300 eOSDB AHYKEY 

1392 0300 IF Al * 'y' OR Al - *V THEN Al = 'Y'tBDTO COREIIT 
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Reacent 


Jet Printer 


rr.os 1^ 
07-05-fi^ 


Pattern 


Enlry/floaif iution tO'46'13 


OHset 


Ddta 


Source Line 15.1 Persanal Cowuter BRSIC Cowiler V2.00 




0300 




Ir h$ = 'n* CR ftf = *fl* THEN At = Vl'rSDTO CCREIIT 


13FB 


0300 




SOTO COSIOOP 


i3FB 


0300 


CSRHH: 


MOO 


03CO 




LOCATE 25,l:mNT SPACEJt39); 


MID 


0300 




RETURN 


H21 


0300 






1 lit 


0300 


DISPCURSDR: 




0300 




EDSU6 FLACECDRSDR 


I4xt 


0300 




LOCATE 25,27!FRIHT USIKB •♦MH';n * SRlDj 




0300 




PRIUT ' *' 




0300 




PRINT US1H6 '+l.»iriYl I BRIB; 


Mao 


0300 




RETURN 




0300 






1 1 Si 


0300 






MB4 


0300 


RDl! 


LlNE{SCSDAT:tl,l)+4,5CHDATItl,2)Ml-ISCKDftTlll,31H,S:H 


M09 


0300 








DfiTKI, 41+41 


1522 


0300 




RETURN 




0300 






152fc 


0300 


RB2: 




152B 


0300 




LINEmDATl[I,l)*4,SCX:ATl(l,21*41-(5CMATltl,3)*4,SCH 






DAniI,4)+4l,,B 


1SC4 


0300 




RETURIi 


15CB 


0300 






isce 


0300 


RD3i 


Llt;EISCMllUlJM,Si:K:ftTllU21*4)-lSCHDAni:,3)+4,SCH 


15CD 


0300 






tiAT:[I,4)+4),,BF 


1667 


0300 




RETURN 




0300 






1666 


0300 


fiD4: 




1670 


0300 




RADIUSI * £CRU5:NLfiT:;l,3}-£CKDATl(I,ll)*2 ♦ (SCHDATIt 




I.4J-SCNDftUil.2))*2) 


1 ire 

16FF 


0302 




CIRCLE (£C«C;T:Cl,l)*4,=CNI)AT:tI,2)t*l , RADIUSI,, nl 


173D 


0302 




RtlURN 


1763 


0302 






1761 


0302 


DRl: 




1 ILL 

1766 


0302 




LIKE lIllHJllMl-aXM.nM) 


l/ftF 


0302 




RETURN 


17B3 


0302 






1763 


0302 


DR2: 




t 700 
1760 


0302 




LINE (m+4,Yi:HMn+4,YI*41,,B 


1 DA t 


0302 




RETURN 


1605 


0302 






1 DAC 

1805 


0302 


DR3: 


LINE init4,TlH;)-(II+4,Yim,,BF 


IBOR 


0302 




. 1854 


0302 




RETURN 


165B 


0302 






IBaB 


0302 


DRl: 




183D 


0302 




RETURN 


1861 


•0302 






1861 


0302 


ERl: 


LiHE (mH,ti:+4)-(nM,nt4],o 


1666 


0302 




IBAF 


O302 




RETURN 


18B3 


O302 
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Rei55nt Jet Printer ^^^^ 
Pattern Entry/HodiMtslion 07-05-36 

10:46:13 

Offset Dita Source Line It?! Personal Coiputer BASIC Doapiler V2.00 



1BB3 


0302 


EF2: 


leeB 


0302 


IIKI (I[;M,TU*4]-in+4,lI+4l,U,£ 


1901 


0302 


RETURN 


1905 . 


0302 




1905 


0302 


ER3; 


190a 


0302 


LI«E [ni+*,Y12*41-in+4,YI+4),0,BF 


195; 


0302 


RETURN 


195B 


0302 




195S 


0302 


ER4: 


1950 


0302 


RETURN 


19M 


0302 




1961 


0302 


ANYKEY; 


1966 


0302 


A$ = " 


1970 


0302 


UHlLE A$ s 


197F 


o:c2 


At 8 IKKEYS 


1989 


D302 




i9ac 


0102 


RETURN 


1990 


O302 




1990 


0302 


StTKflflEi 'proipt for ana get filenaie 


1995 


0302 


LOCATE 25,l:PfiINT 5?ftCtJt391; 


19B2 


0302 


lOWTE :5,38:PRINT V;*;: 'bournfry chevron 


19CC 


0302 


LOCATE :5,1:PR1NT 'Enter Pattern Kaae 'j 


19E6 


0302 


LINE IKPUTj ",NfinEt 


19F* 


0302 


RtTURH 


19FE 


0302 




19F8 


0302 


' Data fields used by this lodule 


19F8 


0302 




19FB 


0302 




19FD 


0302 


DATA 'OIR , LCnD , Sntt , wRAi , Rtrl , till , |3 


19FF 


0302 




19FF 


O302 


nN2: 


iA04 


0302 


OATA 'LlH£*/R£CT*/£R£CT',»CIflCL*,'ftEDRl!*,'nAlN',",5 


lFi06 


O302 


r 


1A06 


0302 


IKSTRUC: 


m 


0302 


DATA B,lfc/U5E ARROMS" 


m 


0302 


■ DATA 10,9, MO SELECT FF-Cfl THE REHU' 


lAOF 


0302 


DATA 14,12,'USE THE ENTER 


lAU 


0302 


DATA 16,10,'TD ACTIVATE StLECTIOtC 


1A13 


0302 




1A13 


0302 


EKO' SUB 


lAtA 


0302 




2lfiF 


0302 





50426 Bytes Availabli 
43373 Bytes Free 

0 Karning Errorlsl 
0 Severe Error (si 
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RciGEr.t Oet Printer PftSE 1 

Burr-trDOT PCI-2C000 custDi liriver 0fc-30-B6 

0B:3B:U 



Offset 


Data 


Source Line IBrt Fersonal Cosputer BASIC Ccapiler V2.00 


0030 


0006 


REM $TITlE:'Reaocnt Jet Printer' JSDBTITLEt'rurr-BrOfcfl PDI-2000 






0 custoa driver' 


0030 


D006 


'NODULE 


- 'per Driver for the PC1-20000 I/O and PULSE cards 


0030 


0006 






0030 


0006 


'AUTHOR 


- n. S. Fairchild of Coiputinq Architects Inc. 


0030 


0006 




113 Fairfield Hay 


0030 


0006 




Blooiinadale. 11 60108 


0030 


0006 




312/9E0-6777 


0030 


0006 






O03O 


0006 


•COPYRIGHT (CJ 1985 fiBBOTT LABORATORIES 


Vv<iv 


0006 

vvVB 






0030 


0006 


'REVISIOH - 1.2" 12-16-85 HEF Add digital I/O initalitation, and 






output routine 


0030 


0006 




- I.l 12-10-85 nSF Hove counter lodule to position 2 


0030 


0006 




0030 


0006 






0030 


0006 




- l.O II-22-B5 fiSF Creation of initial code 


0030 


0006 






0030 


0006 


■BY5TER 


- This code can only be ccspiled by the BASCCK V2 


0030 

VVVV 


0006 




CCnPIlER, it Mill not run under the INTERPRETER!! 


0030 


0006 






0030 


0006 


•DESCRIPTION: 


0030 


0006 




The PCI lodule is a group of routines used to a 






ccess 




0030 


0006 




the BURR-BroM PCI-20000 tioard. The suoplied soflnire c 






auses 




0030 


0006 




the Vor05lar2000 sof^iue to lalfunction and miU not p 






rivide 




0030 


O006 




explicit on, off functions for the counters. Custoi dr 






ivers 




0030 


0006 




Mill te lade to prcY\0e all of the desired functions. 


0030 

WW 


0006 






0030 


0006 






0030 


0006 




Address Reoister 


0030 


0006 




;hCO0OO Carrier I.D. / codule present 1R) 


0030 


0006 




IKCOO^O Koduie interrupt status (R) 


0030 


0006 




IHCOOSO Digital I/O port 0 (R/Kl 


00"',0 
vvov 


0006 

wvy 




tKCOOBI Dioital I/O port 1 m) 


0030 


0006 




IHCO0B2 Buffer direction and enable [R/N) 


0030 


0006 




IHC00B3 Control for ports 0 and 1 (H) 


0030 


0006 




IHCOOCO Digital 1/D port 2 (R/ii) 


0030 


0006 




IHCOOCI Digital I/D port 3 (R/N) 


0030 


0006 




IHC0OC3 Control for ports 2 and 3 lii) 


0030 


0006 






0030 


0006 




IO200 Read lodule I.D. (1110 10101 


0030 


0006 




IHC020< Rate generator low-oroer 16 bits (0) 


0030 


0006 




IHC0205 fvite generator high-oroer 16 bits 111 


0030 


0006 




IHC0206 Counter 3 count register (2) 


0030 


O006 




WC0207 Rale generator/coynter 3 control 


0030 


0006 




IHC020B Counter 0 count register (0) 


0030 


0006 




IHC0209 Counter 1 ccunt register (1) 


0030 


0006 




IKC020A Counter 2 count register (21 


0030 


0006 




IHCC209 Counter 0-2 control 


0030 


0006 




lKC020t Counter gete control tl enables^ 0 dlsa 



42 



0 268 237 



5 



70 



T5 



20 



25 



30 



35 



40 



45 



Reasent lii Pri: 
6urr-£r:wi FCl-i 

DHset Udta 



,ter 

!v.''vO custji driver 
Scarce Lins 
tie-., 



PAGE : 

Oi-30-di 

IBH Ftrsonal Cotautcr BfiSIC Coipiler V2.00 



50 



0030 


mi 




bit function 


0020 


mb 




0 Rate aenerator gate 


0030 


OGOi 




1 Rate oenerator gate 


0030 


O0O& 




2 Counter 0 Qate 


003C 


000& 




3 . Counter 1 gate 


0030 


000& 




4 Counter 2 oats 


0030 


000& 




5 Counter 3 gati 


0030 


OOOi 




6 Not used 


0O3O 


OOOi 




7 Not used 


0030 


COOi 






0030 


0006 






0030 


0004 


'EATA DICTICKARY 


0030 


000& 






0030 


COvd 




CDUtIT - Divisor to ZTlhz rate to give desired ^requenc 






y or ti» 


0030 


000& 




CDUNTH: . - High order 16 bits of a 32 fait diviso 


0030 


000& 




CDUNTLI - LoM order 16 bits of a 32 bit divisor 


0030 


COOi 




LSEI - LoHsr 6 bits of a 16 bit divisor 


0030 ' 


0006 




nSBI - Upper 8 bits of a 16 bit divisor 


0030 


0006 






0030 


0006 


' Kain line code 


0030 


0006 




The lain line code is never executed. It's sole purpose 






it to 




0030 


0006 


' dscU're shared the variiDh^ that Kill be used in the subrout 






tnes 




O03O 


0006 


' so that they Mill all be cehned and hold their values. 


0030 


0006 






003O 


0006 


MIK:. 




O03O 


0006 




m SHARED COUNT, CC:NTHMCQUKTLt,LSBl,hSBI 


0030 


0006 






0030 


0006 


MIKLOOP:. 


0030 


0006 




GOTO RAINLODP 


004C 


CO 12 






004C 


ooi; 


fPA&I 
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Reagent Jet frintsr [fl J 

Burr-=ruin fu;-:cC00 custc* driver 

08:38:16 

Boarcs Perscr.si Ctsputer BASIC Coapiler V2.00 



The PCI. XT subrwtir.p initaiizes the K\ hirdware. 

E'JS PCS. IS] I STATIC 

D£F 3ES = VHCOOO: Toini stgient to PCl-20000 board 
rCtt WC?0C,WC5: 'CUiile ell softnare enabled counter 

s 

■ Confiquft rate generator to 2 Wiz 

POKE ;H0?07,iHM: 'Set loti rale counter to lode 2 
POKE lH0207,tH74i 'Set high rile counter to iode 2 
POJ;£ lH0204,lH02i 'Load Ion rate counter »ith 16 bits o 



CHsEt 




OOAC 


0012 


004C 


:-oi2 


OO^C 


0012 


004C 


&0l2 


004C 


0012 


00<C 


.>012 


0053 


0012 


0053 


W12 


OOjft 


Owl2 


0051^ 


0012 


0063 


0C12 


0063 


0012 


0063 


0012 


0063 


0012 


006D 


0012 


0077 


0012 


GOBI ■ 


0012 


ooeA 


0012 


O05; 


0012 


0090 


0012 


0QA7 


O012 


O0A7 


0012 


0Cft7 


0012 


00A7 


0012 


OOBl 


0012 


OOBE 


0012 


00C5 


0012 


00C£ 


0O12 


OODB 


0012 


OOEl 


W12 


OOEl 


0012 


OOEl 


O012 


OOEl 


0012 


OOEB 


0012 


OOFS 


0012 


OOFE 


0012 


OOFI 


0012 


OOFE 


0012 


OOFE 


0012 


OlOB 


0012 


0112 


0012 


OllB 


0012 


OUB 


0012 


OllB 


0012 


OllB 


0012 


0125 


0012 


012F 


0012 



0^ 2 



POKE iHfl204,W00 

POKE VHCi:05,lH02: 'Uafi hi^fi rite counter xith 16 bits 

POKE IH0205,IHOO 
POKE IH020C,IH03: 'EniMe rale counters 

' Configure dot rile counteri (default to 5 Khz) 

FDKE IHOJCB/.Wjfl; Ui \z.* dot counter (0) to lode 2 
POKE ;K0xCB,;H7;: iet hi^h dot cojnter tU to eode 2 
PCrE Vr:v20c,lH04: 'Iciil Iqk rate counter -ith 16 bits o 

f 4 

PKE iH0:05,lH00 

PCI:E ;H02C?,Vnt4: 'Loao high rate counter with 16 bits 

of 100 

pctE iko:o9,;hoo 

' Cfldfigae dot puht tiith one shot Idefault to 13 used 

POKE IH0203,;kS2! 'Set oot puUe with oneEhot (2) to id 

ee 1 

PCr.£ ;K0:OA,lHlft: 'Load oneshot nith 16 bits of 26 
POKE ;k02CA,1HOO 

' Ccftficure shiKed strobe pulse one shot tdefauU to .5 used 

POKE ihl2C7,VHB2! 'Set shiiled strobe onshot (31 to lod 

e 1 

JUKE VH020i,Vn0l! *Uid oriEShol wth 16 bits of 1 
POKE IH0206,IH00 

' Configure port 0 to output and port 1 to input 

POKE iH0083,iHe2: ' 5ct up I/O chip 

POKE «H0082,k'H34; ' Set up direction and enable buffers 

rOltE iK008O,lH0O; ' Dissable print head 
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TO 



R«sEr.i Jet Pfinter ^^^f * 

Burr-rr3«n PCi-rC-jCC custsa criver Oi-30-8i 

DOurcB un« IcH Personal CoiDut&r BfiSlC Coapiler V2.00 

£k: sub 



20 



25 



30 



50 







oi:s 


oci: 


013F 


0012 


013F 


co:2 


our 


0CS2 


013F 


CCI2 


oi3r 


0012 


013F 


0012 


oi3r 


0012 


013r 


0012 


OIU 


0012 


OIU 


0012 


0150 


0012 


0130 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0357 


0012 


CI157 


0012 


0157 


0012 


0157 


0012 


015E 


0012 


015£ 


0017 


oue 


0012 


OUB 


0012 


OUF 


0012 


OUF 


0012 



?EK JPA5:1F;12 
'SU3?,2l)TIKt - DDT.DK 

':i::?:iFTiOK! 

Tlie DDT.CK subroutine enables the dot frecuenCY counter 

S'JB wl.OS STftTIC 

mi IH020C,IH0F! 'EnsDU dot counters and rate generat 

or 

END SUB 



RWlPftBElF!l2 
0157 0012 'EDBOTIME - DOT. OFF 



'SESCRlPTIDHi 

The DOT.CFF subroi; *i disables thB dot counlirs 



^ 0157 0012 SUB DOT. OFF STATIC 



POKE lH020CilK03: "Disable dot counters and enable rate 
generitor 



^5 OUa 0012 EKD SUB 



55 
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Reaeent hi Printer ^^^^ J 

Oe::BtU 

£s:l-ce Line m Personal CoiputEr BASIC Coipiler V2.00 

'SOTJTIKE - SET.DOT.RftTt 
'tESCSIPTlDN: 

The SET.DOT.ftfiTE subroutine loads the (Jot rate ccunters 

• with the tJpsired dot frequency, ftllowed range l5 10,000 to 1 
Hz. 

' The FRES paraieter is a real nusber in H:. 
SUB SET.&DT.IiATEiFriEQ) STATIC 
' Liiit freqency to in range 

IF FREQ < 1 THEN FREQ = I 
IF FREQ > lOOOO THEH FREB - 10000 

• Convert to count and check ^or ib bit count or 32 bit count 
COUNT = 2E6 / FRE9 

IF COUNT < 655361 THEN 50TD DIVIDEU ELSE GOTO D1V1DE32 
' Process count of 32 bits 
DIV1DE32!, 

COUHTLl ' INTnC0UHT/3276B!) ♦ D: 'Btagt loner count 
COUKTHI = INTtCDL'NT/CCyNTLl): 'Fori uoper count 
GOTO SET. COUNT 

' Process count of 16 bits 

DIVIDE16: 

COUNTII = 2 

COUNTHI = ]NT(CaUNT/:i 
. BOTO SET.tOUHT 

r 

' Send the derivfO counts cut to the counters 
SET.COUKT:. 

L5B1 « CCUNTLI SOD 2S6: ' Send out low 16 bits 
KSBI = IHTICOUNTLI / 256) 
POKE IH0208,LSBI 
POKE lH020B,nSBZ 

LSBl = EOUSTH: nOO 256: 'Send out high 16 bit$ 
nSBI - INT(CCUNTKZ / 256) 
POKE «.K0209a3BX 
POKE lH0209,ri3BI 

END SUB 

m $P(iBEIF:27 



UTTSB t 


Tilt a 


fti ir 


vvii 


Vlor 




Ol6r 


0012 


rtt IF 


Anil 


OUF 


O012 


OUF 


0012 


OUF 


0012 


OUF 


0012 


0176 


0012 


0176 


0012 


0176 


0012 


0176 


AA« ft 

oou 


OIBF 


0012 


0IA6 


AAl ^ 

0012 


01A6 


AA 4 H 

0012 


01A8 


0012 


OlAB 


0012 


0I6B 


0012 


OlCF 


0012 


OICF 


0012 


OlCF 


AA« 1 

0012 


OlCF 


0012 


OlDO 


0012 


OlFO 


0012 


At Aft 

020B 


AA 1 ^ 

0012 


020F 


AO* ^ 

0012 


020r 


QQ\2 


020F 


WU 






0214 


i\ni 1 
W\2 


0216 


vwU 


02j2 


Wl2 


0236 


Ovu 




Wli 






OZ^D 


UQli 


023/ 








0263 


w\flZ 


0273 


0012 


02B3 


0012 


0263 


0012 


0291 


0012 


02AC 


0012 


02BC 


0012 


02CC 


0012 


02CC 


oon 


02D3 


0012 


0203 


0012 
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Rssysnt h\ Printer ^^^^ ^ 

Ofl;:BiU 

te:e Line m Personal Coioutsr BASIC CDopiler v:.00 

■SOT'JTTfiE - SET.DDT.illOTH 
•BESCRIPTIOH: 

The SET, DOT. WIDTH subroutine loads the dot width one sli 

ot 

' .ith the dEBired dot pulse width. Allowed range is .5 to 16,0 
00 u»c. 

• Thf rimdth parueter is a real nuiber in usee. 

SliS sn.:3T.liIDTH1D«DTH) STATIC 

' I) lit Nidtb to in range 

IF mm < .5 THEN D«IDTH = .5 
IF Dh'iDTH ) UOOO THEN DUIDTH = 16000 

' Co&vert to count 

OTT = WIDTH / .5 

' Send the derived count out to the counter 

LSBl ' INT (COUNT HOD 256): ' Send out U bits 
RSBI » INTICOUKl / 2S61 
POKE IH020A,LSB1 
POKE lH020R,flSBl 

END SUB 

Fin yPABEIF:27 



Offset 


Data 


02D3 


0032 


02D: 


0012 


0203 


0012 


02D3 


0012 


0203 


0012 


02D3 


0012 


02D3 


0012 


0203 


0012 


02DA 


0012 


02DA 


00J2 


O20A 


0012 


02DA 


C012 


02F3 


0012 


030C 


0012 


030C 


0012 


030C 


0012 


030C 


0012 


03lfi 


W12 


031A 


M12 


031A 


0012 


03lft 


0012 


0331 


0012 


034B 


0012 


0358 


0012 


036B 


oon 


0366 


0012 


036F 


0012 


036F 


0012 
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Rfaoent hi Priftter [fl J 

Burr-Brctdi PCl-20000 custoi driver It't,, 

08:3B:U 

Source Line IB^l Personal DoepuUr BASIC Cospiler V2.00 

'EUBROUTIfiE - EET.3TR0BE. DELAY 

•DESCRIPTIOK: . . . , 

The 5ET.STRDEE. DELAY subroutine loads the strobe deUy 

one shot . . ^ 

' with the desired ;trobe delay tiie. ftUo«ti ranoe 15 .a to 16 

,000 usee. 

• The delay paraieter is a real nuiher in usee. 
SUB SEl.SlROBE.DELAYtDELAYI SlfiTIC 
' Liiit delay to in range 

]F DELAY < .5 TO DELAY- = .5 
IF DELAY > UOOO THEN DELAY - UOOO 

' Convert to count 

COUHT-* DELAY / .5 

' Send the derived count out to the counter 

LSBI « INTICOUHT HOD 25i): * Send cut 16 bits 
B5BI = INTICOUKT / 25iJ 
POKE ;H020S,LSBt 
POKE IH0206,K5B1 

END SUB 

RE« $FA6E1F:U 

'SUBRDUTIKE - DIBITAL.O'JT 
'DESCfilPTIDNi 

The DIBITAL'.OUT subrcutine sends -the pasted integer to 
the output 

port 0. 

SUB dibit;l.ou](BYte:) static 

' Send the byte to the port 
POKE W0090,BYTE1 
END SUB 



50(26 Bytes AvaiUble 
4B723 Bytes Free 

0 Earning Error Isl 
0 Severe Error (s) 



Offset 


Data 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


036F 


0012 


03fiF 


0012 


036F 


0012 


03iF 


0012 


0376 


0012 


0376 


0012' 


0376 


0012 


0376 


0012 


035F 


0012 


03Ae 


0012 


03A8 


0012 


03AB 


0012 


03A8 


0012 


03B6 


0012 


o:b6 


0012 


03B6 


0012 


03B6 


C012 


03CD 


0012 


03E4 


0012 


03F4 


0012 


04O4 


0012 


04O4 


0012 


0408 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


040B 


0012 


0412 


0012 


0412 


0012 


0412 


0012 


0412 


0012 


0423 


0012 


0423 


0012 


042A 


0012 


0S7F 


0012 
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Pattin 



Jft Mnltr 

^ tut IRQ 



Offstt tsti Scurci lir.t 



mi 

0E:4 

m Piffonil CoiDuttr BRSIC CoisUir V 



70 



15 



20 



25 



30 



35 



40 



45 



50 



0030 

oo:o 

D030 

0030 
0030 
O030 
0030 
003O 
C030 
0030 
0030 
003C 
4030 
0030 
0030 
0030 
0030 
0030 
D030 
0030 
0030 
0030 
0030 
0030 
0030 
OC30 
0030 
0030 
O030 
O030 

oc:o 

OOM" 

O030 

0030 

0030 

0030 

0030 

0030 

0030 

O030 

0030 

0030 

0030 

O030 

OO30 

O030 



am 

OOOi 
COOi 

mh 

OCOi 

m 

mi 
oou 

0006 
OCOi 
0004 
0006 
000& 

tm 

O004 

ooot 

OD94 
OOOi 
OOOi 

OCOi 
OODl 
OOOi 
OOOi 

oooi 

0004 

ooot 

0C0& 
OCOi 
WA 
COM 
0094 

m 

0004 
0004 
0004 
0004 
OC04 
0004 
0094 
OO04 
OO04 
C0D6 



Fill in;LE;'Sti«-.i ;it ?rintir' lEUBTITlEi'MUrn rrifiting" IlIHESIIEtUS 

•Allies - K. fi. tfliYOlrf 

•:;?«lsHT to \m SB?Cn IfiBCSATDRlES 

'KVISKS • 2.0 07-02-Bo WE IWlfild (or HicroFib Printhiiii 

- l.J 03-07-86 KRt MM ftotii ind finil toitchK 
' ' 1.0 C3-03-64 lltE Crtation of ioitiil codi 

'StSTcI! • Tliis codt tw wly bf toipilid by thi BftSCW 

COJlPIlOl, it Hill not run under thi IKTEflPRniR'i 

Uf prinlin? ledult dtipliys i iffm in 3 telom o* 4 rws iich. nt nm 
CDluw tilt data Iroi the dHwll rHjtnt prolili, Thi iKond cdIum hai 
data thf dWault pattirn fill. Thr third tolum h»s standard pnnttnq 
data. Th( four armi keyi allw (Ji4ffrtnl itito itri* tc bt highlighted and 
Ihi valuM can be chift9*d lith thi + or - ieyi or by entirjn? the rtii ftuibir 
•follotid by Enter. P -ill ciusi the pitlirfi t5 bi printid, S «!! iilict the 
aotipad, and E iill »it to the iiin prosrai. On thi nctipad, anv iingli lini 
enttrid here be «nt to the printK. A null lini lilli tfci notipad. 

*MTA CICTlOKARt 

rmi ifl^ith aetu itet it hiqhlightifl tO-17) 

BlFFl Hhert is lovt aenu highlight ift reiponsi tc arroi key 

TYFcl vt^at key t^ii hm pris»d during aaifl can 

EL-jJH Nuaier of »]«ent( in current patlrn 

£CvrSTlll3,Sl Amy ior storing tltirnts tn current pattern 

REPtSTl CouDtir for ripeat printing the pattirn 

Cn Cojftlir (or steppinq through thi pattrn array during printinq 

F;;9IU51 ttadiui o< circle during printiog 

U n DHfcli for start ro«/coluin pHition 

RIFi: KT'il Repeal distances for ripiit printing of pattirns 

si: Vn Starting I and Y positions ^or solid rKtangles 

ni Zn EnBiog l ^nd T positions for solid rictangitt 

11 31 Cowlers used for reading pitlirn filii into thi array 

TEKPl Registr for use. iitegiri 

KTELISTX Pointer to thich lint is ictivi in tbi notepad 

ICKUttl?,}) Array of strings ttsid to display ihv itHS 

M Singli kiystrott inpot destinatioo 

nut String intcred in notepad and sent to printer 

KISUFI SUiftg lotered froi uin scan and assigned to nuibr of string field 

RtfiUnEl !lau of defttlt riignt 

P411UREI Vaat of difaaJt pattern 

FIL£t NiM of riignt data file and then pattern data fill 

l^(U,M Array of values oted iti displaytog sens itei nuibrs 

lEKP Rrgiiter for the titporary storage of rial DQibn-s 
m iPftBE 



55 
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RiiQifit t<t Frifttir 
Offm DJtl Uarcr line 



to 



15 



20 



08:4* 

tEK Pirtonil Coiputir BASIC Cfiipilfr V. 



oo:d m 

m mh 

mi wu 

OMB 

D04B H&2 

001E 0U2 

0059 0U4 
005^ 0<M 

0060 04M 
OOM m 
OOM 04U 
0079 

0083 MM 

OOSii 04&S 

OOU 0468 

00B2 OlftS 
CODE 

25 O0F4 04b8 

0)0A 04^ 

012F 04U 

0154 04U 

0179 04« 

019E 04U 

30 01D6 MU 

0:o: 0448 

0202 0468 

mf »4b8 

0:iF 01 &8 

0223 0468 

35 022A Ma 

072A MM 

0Z2£ M6S 

• 022t 0468 

022E MU 

023} Mil 

40 0256 M68 

0264 046fi 

0269 04U 

0277 046E 

029r M6£ 

02AC 04i£ 

45 02CO M6E 

02C3 046E 

02C3 04bE 

02C3 M6E 

0:C8 046E 

OZCC 04SE 

50 02CC 046E 

m m 

m 0470 

0372 M70 

0388 0470 

0388 0470 

S5 



e;3 p;t?rihi imiz 

m SCWATlt50.5),KKli»(l7,l),«ENUI17,4) 

835116 miTUUIE: 'rtii init. vjluH «d sit urm 

whe tvpe: <> I 

TtPEl.«0 
M • " 

8HILE AJ « 

At « IKKETf 
MEW) 

IP A< » OR flf » 'e' THEN TTPR « I: 'nit sab 

IF At • V OR At • 'p' THEH TYPEX « 2j 'print pittern 

IF At « IKEH TYPEI « 3j 'intrHMi Yini6l« 

IF Al * THEH TtPEI « 4j ■decrttent wuMe 

IF At ' CHRtiO) + CHR*1721 THEN TYPE! * 5t 'up vrw k»y 

IF At « CffltIO) * tmm THEK TYPEl * hi 'flcm irroi k«ir 

IF Al « CHRIIOI ♦ CKRSI75) THEH TYPEl » 7: 'left irroi ity. 

IF At = CHIitlO) ♦ CHRI177J THEN TYPEl » 8i 'ri^^i irrcm key 

IF At } CHJlt[47l ;nO At < CHRllSB) THEH TYPEl « 9j' nulbfr 0-9 

IF At » 'S* OR Al • 's* THEK TYPEl » lOi 'wttr scntthpitf 

DM TYPEl SDS1I3 Tl, TI, T3, T4, T5, T6, 77, 16, 19, TIO 

HEHD 

TYPEl « 0 
Ein SU8 

■iMiHtliH SUBf'OUTlllES FCfi IH!S P.QDULE MIHHHH 
llOl 'icritcti pitf 

SCREEH 0,0,2,2:CX08 7,0 

LQEATE NDiaiXEI,! 
WTaCOP: 

LINE I)i?UT KOTEI 

IF WUI » TKEK SCREES 0,0,0, OaETUM 
LPRIKt KDTEt 

IF WIELJREI < 24 IKEH HOTaiNEl • KOTEUHEX ♦ I 
BOTH KOTClO&P 



TlJ 



T3i 



T4i 



kETUKNt 



'nil to print iiBu, fto uttoR 



•protMl kff 

IF IlL1'JtIiEim,tl V» KSUtHEHUI^l) JKB REKU(IltKlJl,0) ' HEHmnEMUI,ll:i!ETlIRN: 

IlEHUir,£»;u:,01 « KS*U(llE!im,0} ♦ nEHUlBEKUI,:)! "lid incruiBl 

CJ1108 0,7;£:SUB D15PI1EKU:RETURK; 'iheii «» «lui 

'proem kiy 



'check sii value 
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70 



T5 



20 



'26 



30 



35 



45 



^tlOIOt Jtl F.'l flier 
Filtirn rrinljn: 



50 



lEn Personal Ccsouttr BASIC Coipiiir V3 



3'X 

C3FB W?0 
OUF 

048ii 0472 

m m 

m m 

04(10 0477 

m M72 

04CI M72 

04D1 &472 

0406 0472 

04F9 0472 

05011 0472 

050; 0473 

050F W72 

0541 W72 

054B 0474 

0S5E W76 

057B 0471 

0595 W74 

059F M7* 

05« W74 

05BB 0474 

05B9 C474 

05fl M74 

ml 0474 

0622 M74 

0632 C47A 

_ 0432 0471 

40 0632 047* 

m 047a 

mi 0471 

0661 047A 

04tt 0471 

04Ef 047A 

06E? 04711 

06E^ 04711 

0705 047* 

0722 047* 

0734 047* 

0739 047* 

073B D47A 

0730 047A 

0730 047* 

075ft 047* 

mi 017* 

0771 047* 

55 



T5: 



.T7( 



78t 



79: 



If 5?.Li(?tE'iU:,0) SEWirlflin,:) TKDI lltSU(StKllI,0) » aE};U(P.EKO:.:i:P.rFlIR«: 'chftl lift vihf 
rcKUlOUliO) « rEVUtP.ESlfl.O) - (^HU(nEKir»,3)! 'Bttb increitnt 



■aa 0,7:fiC3U6 tISPSEKU:RETUfill! 

'procnt up irrDK itf 
IF m: BOD 6 » 0 THEK KTUMi 
Dim = -l;50SUB HEKREIJUiRETURIC 

'proccsi Cm irrpi Uy 
IF rtDTJI ItOD 4 > 5 TKE)l KlMh 
mi « 1;6DSUI tiEaBESUiRETUMt 

'proccti 1»U irrc« kiy 

IF liniHEWI / 6) « 0 IHEM RETURH 

tifr2 » -h'.mi mm^imm; 

'procHS richt »rro« iiy 
IF IVTtnEHUl / 6) » 2 \m RETUM 
OIFrl = 6!6CSI;B KtWEKUifiTURK: 



'in top roH ilnidv 
'■ovt pointtr up one 

'in bottoi roM alrtidy 
'lOYC pointer doim one 



'in left colun alreidy 
'iDYt pointer ene leU 



'in ri^ht coluin alreidr 

'lOY* pointer one right 



'input livs into timn until <cr> is intired 
LOttU 35,30:C0L0R ;i,3:PRI»IT 'ENIES NEK VfiLUE';:CCLCR 15,0 

nms . *t 

KHtLE At <> mU\Z) 

LOCATE :5,4::PMHT SPftCEtCOl? 
LOCATE ::,*7:;MHT KEY6UFJ{ 
M * *• 
MHILE A* « " 

At 1 iVKEYt 

VEMD 

IF At = CVT.JtBl IBD LEKirEYSUFII ) 0 IHEH KEYfiUFt • UFlHttYEUF!,LEtl(l!EYBUFll-l) 
IF *l > muZW IHEH tETBUFt « KYBUFt + *t 

m 

TtR? » VALIKEYBUFti 'tup Kii viluf keys input 

'rwdd trio ictoroing to stt» lizt in lenu irrty 
lEKP ' IHltTEKP / MIREKlll,31) ♦ .5) i KEW) IJIEKUI ,3) 

r 

'ttit TEKP 4or lutiui ai liniiu values in imo array 

IF TW > HWIREN'J:,!! THE)! TEW • IffWJIREm.l) 
IF ttdP ( IlEI(U(KtHin,2) THEM TEW » KEKUinEm,2) 

'iMKl nen viUf into iinu irray and update screen 

K(rJiniWII,0) « lERP 

LCCRTl 25,30:PRItll SF';CEI140)) 

mi OJiEOsUG DISPncHI 

Him 



T2: 'set Burr*BroMn board thin print desired pattern 
BIEP'.KIOR l5,0!LDt;T£ 73,1 

PRINT 'Set Potintioittert on Printer.... then Press any Key*} 
At • 

iHlLE At » " 
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P.ej5?nt Jet Printir ^^SE 
■Pittirn Printing 

C8i49 

Ofisrt hii Source Line Personal Coioutir BWIC toijiiir V2 





0780 


047A 


At * IKCEYI 


10 


mk 


047A 


JiHKD 




078S 


047A 


LOCATE 25,1:PR1KT SPA[Elt79)} 




07AA 


047A 






07AA 


04 7A 


'enter drop piriieters into burr-broHn boird 




07AA 


047A 


TcHP = lltKLllO,OI:CAU SET. DDT. RATE {TE«P1 




07D3 


047A 


TERP » 5: CALL SET.DDT.MIWHtTEllP) 


15 


om 


047A 


TEMP » rXKU[2,01:CALL SET.STROBE.DELATaEKP) 




0Et9 


047A 


CAU DOT.ON 




0B25 


047A 






mi 


047A 


TEBPl « 4 






047C 


CAU MBITAL.CUrnEIlP:) 


20 


0B3C 


e47C 


TEltPI s 0: 'psliB fiESn lint 


oeu 


047C 


CALL OISITAL.OUTdEIlPI) 






047C 


T£!iP: • 4 




OBSA 


047C 


CALL DIGlTAL.OUTaEnPU 




OBM 


047C 


:i > CI)(T1KE(tUtt,0) f / ISO): 'set pulse upliludi by pulsinj HIGHER signal 




OBj)ft 


047C 


25 


0G?3 


047E 


FOR 11 no 41 


OGAO 


04B0 


TEHPl » 6: 'stt HIBHER tru« 




0BA7 


0480 


KIL DIonAL.OUTITEnPI) 




OGB? 


0480 


TE«Pl « 4: 'sit HIBHcfi false 




OBBE 


04BO 


CfiU DIGITAl.OUTIIEHPI) 




O&CE 


0460 


NEIT 11 




0E» 


0462 




OEiO 


0462 


'establish CCKl: ind initialize plotter 




OBEO 


0462 


OPEH ■CCai;2400,K,8,:,:s hlill' AS It 




0BF2 


0462 


PRIin ll/i:l':ti.£rVl,h'5 




0902 


0462 






0902 


0462 


'love noi:le oihtt ind Htablish nei origin 


35 


0902 


0482 


PfilUT 11, "AD'; . 


0912 


04 B2 






0912 


04B2 


'calculate r&«/cotuin lo:atien, love there, and set qcm origin 




09(2 


0462 


i: • IREHUI 12,01 -11 < iRcNU(]4,0) / D.005) 




095< 


04S4 


Tl 3 (nEKuli:,OI-l) * tr.ENlll]5,0} / 0.005) 




0996 


0436 


PRIM tl,i:|T:}*0'; 


40 


09B4 


0486 






0934 


0486 


'print the pattern using repeat count 




09B4 


0466 


KEPYl s nEKUIB.O) / O.COS 




09D7 


0468 


REPXt * R£VUI9,0] / 0.003 




09FA 


048A 






09fA 


046A 


m nmn * o to kd(u(7,oi 


45 


OAIC 


04ec 






OALC 


048C 


'print the pattern 




QAIC 


048C 


FOR ci: « 0 Tfl mm - 1 




•0A2A 


0490 


ON StffOATUCn,©) 6DSa6 PLINE, P6ECT, FSRECT, PCIRCL 




OAIC 


0492 


KEIT CTI 




CASE 


0492 




50 


CASE 


0492 


FRUIT li,'A,0,B,';: 'return to origin 






0492 


PRIST »l,REPlI;REPn;'0*|! 'lovi u oeit pitttrn 




0A3C 


0492 


HEIT REPEftlX 




OAAl 


0494 






OAAt 


0494 


PRIHT 11, •)!';: 'return plotter to original HORE 




OABl 


«)494 





55 



52 



0 268 237 



5 Riiaint ](t »rintir ^5^. 

0St49 



70 



T5 



20 



26 



30 



35 



40 



45 



50 



Pitttro ?rir.tiifl 


Dfftft 




3^jrtf Liai P""""*! Coiputir 


OAS! 




ClOSF 11: 'disible coilt 








OI^EB 


WW 




0A8C 


0494 




mt 


9494 


PllKE: 


OACl 


Q4?* 


MIKT ll,S:HMTIlCn,2)iSCmTIlCTl,lli*D*; 


0B03 


5*94 


FfilkT ll,SOI!-ftTUCn.4);5CKDATUai,31}'0'j 




0494 






MT4 






3494 


PRECi: 


0E4E 


C494 


pfljNT ii,scmnicn,2);SCKDAntcu,ni'5'i 




0474 


PftlNT ll,SMDAn(CTl,4);SCKDATllCTI,l); 


OECC 


0494 


PRIKT ♦l,SCH0ftn<CTl,4);SCHDATl(Cn,31l 


OCOB 


0494 


PRIHT ll,SWDA7HCTl,2);StK0ATItCTl,3I; 


OC^I 


0494 


RRIHT *l,SHDAntCU,2)}SCMATltClI,l){'U'; 


OCB& 


0494 


RETURJi 


OCBA 


0494 




CCSA 


0494 


PCiRCl: 


ttC3F 


0494 


JAOIUSI » SCRUStN:flTllCTl,:i-ECliDftTIICn,I])*2 ♦ [SCNMTHCn,4)-SCHMTl(Cn,:))*2» 


DMA 




PRINT ll/CC •;SCHMTl[Cn,:];£C!aftTllCTl,lJ;RMIU5I; 


oDi: 


M96 


RETURK 


0Di7 


0496 




ODM 


0496 


PERECTs 


mt 


0496 


SIX • SWDATltCT;,«l:Ell » SDIDfiniCn,2) 


am 


049A 


m « 5CK0ATzfm,;):tv: • schdathcti,!) 


am 


049E 


IF ill <» 511 THEN !i: » SCS0ftTZlcn,2);En « scmTi{cn,4i 


0E15 


W9E 


IF EYI <» SYl TK-ti sr. * 5CNMTHCTX,niEYl • 5CS0fiTl(m,3J 




049E 




Ollb 


049! 


pRim ll,Sll;Sn;*;'; 


am 


W9E 




Ot7* - 


OIPE 


IF Ell - SIX )= 111 ' %n THEN 60Sl)B SIEPY ELSE BDSU! STEPI 


OE99 


04n 




om 


04 9£ 


PRUT ll/U'; 




C49E 


RETURN 


OCBi 


049£ 




0£S1 


049£ 


SIEFti 


0E8i 


049£ 


PRWT ll,EIl;Stl; 


OtCE 


049E 


sn « SYi ♦ 1 


0CD7 


M9E 


IF Stl > Etl THEN REMI 


0CE8 


M9t 


PRINT i;,Ei:tSYl;SIl;Sn| 


OFCE 


0I9£ 


sn ■ STi ♦ 1 


OFII 


e49E 


IF sn > En THEN RnUXN 


0F2B 


am 


PRINT tt,S]I;5n; 


OF40 




SOTO STEPy 


0F^4 


m 




0F44 


M9E 


STE?I: 


0F« 


049E 


PRINT ll.SlIiEn; 


m\ 


049E 


SIX t SIX * 1 


OFU 


049E 


If SIX ) £11 THEN RETUM 


0F7B 


M9E 


PRINT ll.SniEYZiSniSn; 


OFAl 


049E 


si: • six n 


OFAA 


049E 


IF SIX ) EII THEN RETURN 


OF SB 


049E 


PRINT l!,SlliSni 


0FD3 


04f£ 


GOTO STEPl 
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5 Riicent Jil Pfinlir "^J 
?itt«rr Printing 

Offset Oiti Sourc. I^" ^^-^""^ ^"^'^'^ 



20 



30 



35 



0FD7 


049E 


UEKEHU: 'iriti oU itei ia yellon, point to anc highlight itti 


0PD7 




OFDC 


049E 


CDLDR ]4,O:E05liE DISmEtiU 


OFK 


0A9E 


f^m » rEHUl ♦ PlfFl 


OF?A 


049! 


IF SENl/l s 10 THIN KNUl » 9 


lOOC 


Dt9E 


IF m\il ' II THEN RENin » 9 


lOIE 




Ir mm > 15 THEH EEKIR « 15 


1030 


049E 


CQIDR O,7!E0£U6 DISPnRETURK 


1046 


049E 




m 


049E 


IHIlIftLIIE! 


tOIB 


049E 


'ctian^i to iirm 0 anil display iitsaoei 


I04B 


049E 


SCREEN C,0,l,l::iILOH 7,0!a.EiLDCfiTE 10,17:PR]NT •LGiding silected Reagent lod Pattirn Data Filfs'i 


lOBF 


049E 


LOUTE .l2,33iPRINT 'Please Kail..." 


ioa9 


049E 




10fl9 


049£ 


'initializt eotspad on scrtiA 2 


10A9 


049E 


SCREEN 0,0,2, l:CL=:Ct!LOR 15 


lOCH 


049E 


PRlHT'Diqital Notepad - - -All infcrution typed hen is swt to the printer' 


\m 


04 9E 


HOTELIKEI « 3 


10E2 


049E - 




10E2 


04 9E 


'initialiie «nu arrjyi 


m 


049E 


RESTORE AHKQATA 


10£9 


049E 


FOR 11*0 TO 17 - 


lOEF 


049E 


READ REHllItIl,01,n£NUS (11,1)1 


IMF 


049E 


READ nEKl)(II,i:,rE!i;)ni,2J,IIEKUin,3»,KHl](Il,4J 


iteo 


04 9£ 


NEIT II 


1193 


04 9E 




1193 


04 9E 


'get default reagent *nd read valun 


1193 


049E 




1195 


049E 


OPEN 'REAliEF.RJP* FCR ]hm AS 11 


llAt 


049E 


IKPUT lUFlLEI 




0462 


IKPUT ll^RiANAnEt 


nc8 


04Ai 


am 11 


IICF 


04 




nCF 


04 A& 


OPEJI FILE* FOR tWUT iS 11: 'get reagint fiat* 


IIEO 


04ftb 


IKPUT ll,iitHU{0,01; 'Irnuency 


1200 


mi 


IKPUT lUIlEKUtl.O): 'uphtude 


1223 


am 


IMPUT lU.iEHUtl.OJ; 'slrsfce delay 


I24i 


mh 


IKPUT ll,li£KU(3,0): 'pulse «idth 


12b9 


04U 


IKPUT I1,IIE1IUI4,0): 'rise till 


i2ec 


04lti 


IfiPUT ti,RENU(5,0}: 'fill tiu 


12BI 


04 Ai 


ansE 11 


l2Be 


04ft6 




t2GB 


m 


'get default pattera fitt and read viluti 


t2EB 


mh 




12BB 


m 


0?E« 'PATOEF.ftJP' FOR INPUT AS 11 


t2C9 


m 


IKPUT It, FILE! 


i:d8 


04A& 


IHPOI ll.PATlUIlEt 


t2EB 


04Ai; 


aOSE 11 


I2F* 


04AA 




\m 


04M 


OPEJf FILE* FOR IIPUT AS 11: 'get pattero dati 


i:o5 


04AA 


IKPUT ll,ELNWl 


131? 


04AA 


IHPUT II,I!£Nt)t6,fli; 'grii 


i::ft 


04AA 


IHPUT tl,flE«U(7,th 'repeat count 


I35& 


04AA 


IKPUT ll,B£Nm£,flli 'I offlfl 
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76 



25 



5 Rei^Mt Jet Printir 

Pittirfi Printing 

(HtHt Dati South Lini PifiDMl Coioutir B«It CcHilif W 

1380 Om iOTT ILMHUILOli 'y flffiit 

13A3 04M FDR 11 » 0 10 tlJi'lfflM 

13B1 FOK Jl * 0 TO S 

13B7 0«C tXPUT ll.SWDmEII.Jll 

m 04 AC liEn ji 

IJEB 04AC MIT II 

13FP 04flC CLOSE « 

U04 04 AC 

C4AC 'set rfiiininq pinietiri in iinu irrty 

1404 64AC 

1404- 04AC n£Wll2,01 » li 'rw 1 * 

1430 04AC Ktai{l3,0t « 1: 'colttM 1 

143C 04AC RE»!(H,01-» 0: 'roi spicin; 

^° 145B 046C HEWI1I5,0I ■ Ot 'coluin spacing 

1474 04AC 

1^7* 04AC 'change active dispUytd itrew to icritn 0 to draw aniJ display paratettrs 

1474 04IX 

1474 04fiC SCREW 0,0,0, 1:CIS 

1491 04AC 

14!] 04AC COLOli IJdOCATE I.3'i:Pi(INT 'KASEUT PR1K7IW) 

14S2 04SC CDLCR ? 

t4E9 04AC FOR 1*2 TO 7^ 

14C3 04AC UJCATE 3,J:PRmT [HRJll'JblitLOMTt S,I:FRIin CHfillZOSIj: LOCATE IB.hPRlHT CKRIllW; 

1523 0410 KEH 1 

I53E 04BO FDR I«4 TO 17 

lya O4B0 LOWTE l,i:FRl).; CHRlll7Vli:LCWTE I,:B:fRlXT CHR»II8A1;:L0CATE l,;4iPRm CWH(lBili:LOWT£ 1,J 

RIMT CKRI[1791i 

15CB 04MI XEIT I 

1SE6 O4B0 IcESTORE TABLE 

ISED 04B0 FDR 1*1 TO 13 

ISFT 04BO READ Rl,C;.s::;::;iE Rl,Cl;PRm CHRItW)} 

U2A 0466 . KEIT I 

ib45 04Bb 

1(45 04B6 'dispUr 16 arnu choiEti m jrilloii 

IMS 0466 

ti4S 0484 CSLDR 14,0 

40 m 048i FOR rsm • 0 10 13 

1457 04Bi CtlSUB DISPHEKU 

USD 04B4 NEITREKUl 

m m 

lUD 04S6 'tit MtrY and kighlight it 

lUD 04I& nE)(Ul * D:CfiLOR 0,7 

45 m m GD£BB DISPREHI 

U66 04Bi 

OtB6 'print tbrti htadictgi and initructionft 

m 04Bi COLOR 10,0 

m 04U LOCATE 4,14. MEXlREAKAnEM /::PRIIt1 REfDUHEt; 

UCt 04W LOCATE 4,41-LEN(PATKABEi)/2!PRlKT Pfl7KAHE»| 

50 itfO 04B6 LOCATE 4,40(PR1RT 'PRIST lOCATIOX'; 

170A 04B6 

170A 04BA COLOR 7iL0CATE 1?,:0:PRIXT "Jsi ■jtCOLOfl 15:PRIHT CHSt 127) ;CKRit32); CUM 1341 { 

1754 MBA PRIIIT CHPJ 132) ;CKRH:4l;CHRi 1321 jCHRt(25)|:CDLDa 7iPRIin ' to poiitiwi higblightid curwr'j 

179J 0464 LOCATE 20,18:PRIKT 'Usi •pCSlOR I5;PR1KT '♦'irCCLBR TjPRUT ' or 'pCtt-Ofl ISiPRlUT 

HE? 0464 COLOR 7!PfllHT' to icrol) current taltti up or donn'i 

55 
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5 



TO 



T5 



PA&£ 



20 

Humt hi rrinttr 

■Pattirii Printift? OSill: 

ISH Firuflil Coiputir SASIC loioilir V2. 

LD:;TE :i.i:FRHll VCOIOH l5:Pf(IHT •P'i:CDLI)R 7:P^IHT • to print patt.rn or 
CCLDR UiPPItn -fwCOLOR 7jFS»IT ' to wit iQ print im \ 
nm • or •jrCOLCR 15:FRIHT ■S';:COLDR ItPRlHT ' to use noupitJ } 

•set strwB to vie* lenu just crtit«d Md wit 

SCrEER 0,0,0,0 

mm 

DISPREKIt 

]F BEKUX » 10 Oa HEHUI = 11 THEK RETURN 
lOCAlE IKHUI nOD 6li2*7,llNTtnEWIl/Mi2B+2)-2MIIT[IlEm/12t 

PfllKI flEVJItUEm.Ol 
LOCATE tflEHUl HDD 6) *2*7,IlEHUtBEim,4) 
PRWT US3H6 «EHUtlKEHUZ,ll}BENU(B£mjl,0)} 
RETURN 

40 





Wfsit 




25 




mh 




183F 












m 






m 




30 


UK 




im 






18B1 






less 






lEBS 






ISBA 










35 


m 


























m 



45 



50 
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5 



■Siiqtat hi Printtr , '*8t 

0B|45 

mm Diti Sdotci hm IBB Pifssnii Coiputir BflSIE CMpiltr VJ 



t iBr 




-liluiiMiii LATA UStB EY THIS MDULE iii»*h»H" 










1 Tir 








icri 

lit,* 


viM 


vnin wuv rr n^uvnuj 


H:*.*M.IMM0000.1,l,li 


lori. 

ItLP 


viOB 




V '.'HIMSO. 0,1,19 


I TLB 


MBA 




uS','H,»t.lM5?99.5,.5..5,U 




VI DO 


UTA *PiiU* Uiitth 

VniM rUlsE BIBLD 


'.'Hi*,999. 0.1.19 






fliTfl ■Rio Tibs 
VNm nl>I 111! 


* *ltl*. 999. 0.1.11 




vlW 


DdTl 'Pill Tiaa 
UnlH rill IHI 


•,*lll*,999,0,l,t9 






Vnlfl priC Slit 


ifi' III'. .OOS.iOW.. 005.45 


ion? 








1 TU* 


VI DO 




in', *l,lir ,2,0, .005,4! 


1 TUB 






ia*,'I.MI*,2,0,.O0S,4S 




fl4U 


DATA '••■* 0.0.0.0 




ilUH 


mM 


DfiTA 0.6.0.0 




ITUb 




DAlh 'fioi Id Print 


•,'tl',99,l,I,74 


1 TUL 


v^so 


MTa •Cnluin to Pnnt 


','11*, 99, 1,1, 74 


ITCV 


Alii 




m'.M.IH',3,0„005,72 


IOC? 




CFlTA *Coluin Spacmq 


in',M.4ir,;,0,.C05,72 




m 


DATA ",0,0,0,0 






»u 


BATS ",",0,0,0,0 




m 








m 


04B4 


TARE: 




m 


wu 


DATA 3,1,218 




m 


m 


DATA 3,28,210 






m 


OATA 3,34,210 




m 


m 


DATA 3,80,191 








DATA S, 1,198 




I!r7 


MU 


DATA S,28,:0£ 






04 B4 


DATA 5,J(,:0i 




m 


MU 


DATA S, 80,181 




m 


04U 


DATA 18,1,192 




m 


0414 


DATA 18,28,308 




\m 


MU 


DATA J8,:4,2D8 




\m 


04U 


DATA IS, 80,217 




IMS 


04U 






m 








UK 


MU 






IMC 


04U 






2M9 









2042i lytti Avii libit 
447U tylti Fr« 

50 

e Kirning D-rer(i) 
0 5ivif« Errwdl 
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Rezsent Jet Printer [t^]^ J 

OHsr. jcU Sm-cb Lice It^ PerEor.ai Ccaputer BASIC Conpiler V2.00 

0030 OOCi JTITLS: '^s^csnt Jet Frinter' JSUETITLE: 'Reagent Filing' 

003C WOo 'Kl'JLi ' 'J^c^nit* FilE Hanoi ing tor reagents 

0O3D mh ' 

OO30 iiSOi ';=JTKDit - K. A. Enevoid 

0030 OCCi • 

0030 «Cfc r/oPYfilSHT tC) I?65 A55Sn LABDRftTDRIES 

0030 :054 ' 

0030 mh rEVISlDH - 1.1 03-07-Bt WE Adrisd notes and description 

0030 «W ' 1.0 02-U-Bi USE Creation initial code 

0030 OCOfi • ^^^^^^ 
0Q3O OOOi 'S^STt?! - This cpde can only be conpiled by the mm 
0030 COOS ■ COJPILER, it Mill not run under the IKTERPRETER!! 

0030 OC0& ' 
0030 OOOi 'BESCJilPTICN! 

0030 OOOi ' This lodule alloM file handling for rsagtnts. Khen inv 
okei)^ it displays 

0030 0006 • the current contents of the reagent directory in 4 colu 
tns &f 20 entries 

0030 OOOi ' each. The reagent whicii is currently selected for prin 
ting is larked hy 

0030 WOi • an asterisk to the left of the reagent naie. After the 
directory is listed 

0030 COOi ' the user is presented nth 5 lenu choices. The left an 
d right arrows are 

0030 C006 ' used to highlight lenu iteis and the enter key is used 

to invoke action. 
0030 0006 ' The lenu choices anfl tf.eir actions are: 
0030 0006 ' 

0030 OO06 ' KJ-ETE - f!e«o.e a reagent file frci the directo 

ry 

0035 0006 ' COPY - Capv i reagent file to a nex reagent n 

ate, saving the old reagent 
0030 OOOi ' REHAttE • Change the naie of the reagent iithout 

ctianging the reagent itself 
0030 OOOi ' ' SELECT - Selct a reagent for printing 

0030 0006 ' Ein - r.etttrn to the tain aenu 

0030 0C06 * 
O030 OOOt 'DATA DlCTlCHARt 

0030 P006 ' TyFEl Hhich type of valid key *ii pushed 

0030 0006 ' K^WJl Vhich awa itea is being pointer to tO-*! 

0030 0006 • Distance to oove fWl at left or right arro 

0030 00C6 ' n.An Error type 0-4 

0030 0C06 • POIMTERI Position ot REAKfiREI in directory list 

0030 0006 * REAXUni Kwlier of reagent nases in directory 

list 

0030 0005 T£Ja»I Slorace i'er integers during reagent copy 

0030 W06 ' Ai Hisc. input string 

0030 0006 ' FU)JCT$ Printed at bottoi of screen during proipt fo 
r resgsnt naie 

0030 0006 • FEMES Rsagent ni«e currently being •■oriced on 

0030 OOOi • SELMI ^nm'^ f'^" currently seUcted for printing 

0030 0006 ' FILES rilenase of reagent oata file 

0030 0006 ' 3f ILEJ Hlenaae tor source reagent data file used d 
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Pctgrit Jet Frintgr PftSE 2 

ReoDeni HlinQ 07-09-B6 

CHs&t J5:6 lOurcE Line IW Personsi CosDuier cASIl Cosciier V2.00 

urina csav 

triLEJ 'iiEniie tor (jestinjtion reaoenf dats tiU u 

Sfi3 tiurifia ccpy 

WEiKASE! reagent naite for COPY and RENfiHE 
TEr.?J Seacent nines arE held here as the directory 
is feeing re-Knt-ten 

KE'rfrlLEJ Sestinslion fiUnaee used nhile copying reao 
ent data tiles 

REESAEEt n aessa^e printed at the bottoo of the scree 

n 

flENWl*,!) Array of strings containing the short and Id 
nij tenu naaes 

ERRftSBS nessage printed when any error occurs 
EflRJ. Appended to ERRftSBJ to indicate nature of er 

ror 



0030 


eocA 


0030 


COCA 


0030 


DOCo 


0030 


COCA 


0030 




0030 


OOCA 


0030 


OOOA 


0030 


OOOA 


0030 


OOOA 



reagent Jel Printer PftEE 3 

Reaoent Filing 07-09-Bi 

15:04:35 

Offset Data Source Line IBa Personal CoflDuter BASIC Coioiler V2.00 

0030 OOOA ?JB REh=3T.FILE ETATIC 
0047 -. Oi04 

0047 WCi BT-SUB IKITIfiUIE 

OOAO OOOA nPEl = 0 

0054 WOB 

0054 0008 mil nm o z 

005F oooa fif 5 ■• 

0069 OOOC HHILE fil » " 
0078 woe M » INJ;Elfl 

0082 OOC: VEND 

0085 woe IF Al = CHMIO) * CKRl(75) THEN TYPE! « 1: 
•left irroi 

ooflfl w&c IF fti ' mm * mum then typei « 2: 

'right arron 

OCCf woe IF M s CKRS1131 THEN TYPEl » 3: 

'<cr) tD execute selection 

00E9 woe 

00E9 MOC ON TYPEI 60SUB 11, T2, T3 

OOFB OOOC «EHD 
OOFC woe 

OOFC OCOC EIIT SUB 

0100 woe 

0100 OOOC P.EH JPftSE 
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6 



TO 



15 



20 



25 



30 



35 



00 



Reagent iet Printer 




Reaoent Filino 






Offset 


Data 


5ourc9 Line ^E^ PerscndiCofiCutEr BASIC Cocp: 


0100 


OOOC 


■* u su£-GiiTi?::3 f:?! ih:= ^qdule 


0100 


OOOC 






0100 


woe 


Til 


'ifitt arrait 


0105 






TfPEl -0 


OlOC 


DOOC 




ir «Esu: = 0 THEs ^ivm 


CUB 


OOOE 




DIFFl = -1 


0122 


0010 






0128 


0010 




RtTURX 


012C 


0010 






012: 


0010 


12: 


Viflbt arro« 


0131 


0010 




npEi = 0 ' 


0133 


0010 




IF KES-'J: = < THEH KrJSN 


0M7 


OOlO 




DIFrl = 1 


mi 


OOlO 






0154 


0010 




RtTtlRR 


015B 


0010 






0158 


0010 


H: 


'<cr> (ciecate selected lenu itei) 


OlSD 


0010 




LOCATE :5,l:FRIin 5FhCEH791; 


017A 


0010 




ON rmi + l*GOSliB tZA, T3B, T3C, I3D, T3E 


OIBF 


OOlO 




9Q3UB nEi^'J.DH 


0195 


COlO 




RETURN 


D199 


0010 






0199 


0010 


R£K iTAEE 



PASE 4 
07-09-36 
15j04:35 



45 



60 



65 
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Reaqpnt Jet Printer 5 


Reagent Filing 


07-09-B6 






15:04:35 


Offset 


Data 


Source Line IBfl Personal Coiputer BASIC Cospiler V2.D0 


01?9 


0010 


T3Aj 'deUte reagent 


019E 


0010 


TYPE! = 0 


01 AS 


0010 


mas = 'Delete' 


OlAF 


0014 


S05UB BET. SOURCE 


01B5 


0014 


IF LEIilREfiNflHE$] = 0 THEN RETURN 


01 C7 


C018 


IF nEANAflEI s BELiiAKEI THEK FLABl = 4!BDSUB BHOK.EFiRDR! 






RETURN 


01E7 


OOIE 


GQ5UB SEARCH 




00 IE 


IF PDIHTER: = 0 THEN FLAG! = 1:G05UB SHOii. ERROR: RETURN 




0020 








riESSABEi ' 'Deleting * t REAnAHE( * * Please Mait.. 

■ 


0220 


0024 


60SU6 HESSASE.OK 


022t 


0024 




C22t 


0024 


'reNrite directory deleting REANAflEI as indic«t 






ed bv POINTERI 


C22i 


0024 


KILL 'READIR.DLD' 


022D 


0024 


mi 'READIR.RJP' AS 'READIR.DLD' 




0024 


OPEN 'REftDIR.OLD' FOR IHPUT AS 11 






DPEM 'READIR.RJP' FOR OUTPUT AS 12 












inrui iif nLnnuMk 


v&OU 


002*1 




0775 


flfl2i 

Vv4W 


HRITE l2.REAIlUnl 










002A 


IF REAKUni » 0 THEN cCTO DIR. DONE 


0295 


0026 


FOR 11 s t TO R'ANUnl ♦ 1 


02A4 


002B 


INPUT iureak;«hi 




0026 


IF iZ (> PCMtKl THEN PRINT l2,REAWAHEt 


02D1 


002A 


NEIT 12 




002A 




02E5 


002A 


DIR. DONE: 


02Eft 

w*tn 


00 2 A 


CLOSE 11 '.CLOSE 12 


02FB 


002A 




62FB 


002A 


'reiove data Ule 




002A 


FILEt • RlGHTJ[5TRJtPD-MERl) .LEN(3TRJIP01N1ERZ1)-1) + 






■REA.RJP* 




002E 


KILL FILEJ 




002E 




0323 


002E 


'renaip rpiainina iiii files to laintain linked 






list to directDrv 


0323 


002E 


VHIIE (REANUKI i 1) > PQIHTERI 


0333 


002E 


SFILES » RIEHTf(STRIlPOINTERMl,LENISTRJtPOINT 






ERMl)-ll ♦ 'REA.RJP' 


0359 


0032 


DFILEi = ftISHTI(BTR<tPOlHTERZl,L£NiSTRI(PQlHTEfi 






111-11 ♦ 'REA.RJP' 


037D 


0036 


KAflE SFILEt AS DFILEI 


03B7 


0036 


F'Oi«TERI ' POIHTERl ♦ 1 


0390 


003i 


UEKD 


0393 


0036 




0393 


0036 


BOS^B MESSAGE. OFF 


0399 


0036 


REAfiAJtEJ = 3ELKftflE$ 


03A3 


0036 


605UB I3DA 


03A9 


0036 


6GSUB DISP.DIR . 
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Rsicsnt Jet Printer 

Reagent Filino 

OHset Data Source line 

03hF 0036 RETURN 

03B3 mb 

03B3 003i m SPfiEE 



Pft6E 6 
07-09-SS 
15:04:35 

m Ptrsonal Coi:uter BASK Coipiler V2.00 
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Reagent Jet Printer PftBE 7 

Reaaent Filino 07-09-86 

1S;04:35 

DHset Data Source Line IJr. PersoMl Co«uter BASIC Coapiler V2. 00 



G3B3 


003i 


T3B: 'CDpy reagent 


o:b8 


003& 


TYPEX = 0 


03BF 


0036 


IF REflKUM - 80 THEn FLftSI = 3:bDSl)B SnilB.t.KKJK!K6lLIKN 


03DB 


003& 


FUNCTI s "Copy* 


03E5 


0D3& 


6DSUB BET. SOURCE 


03EE 


003& 


IF LENIREANAHEIl = 0 ThtH RETURK 


OJFO 


003& 


B05UB SEARCH 


0403 


0036 


IF POINTERZ = 0 THEN FLABI = IsGOSUB SHOW. ERROR: RETURN 


OUF 


0036 




04 IF 


0036 


eOSUB BET.IJE'iJ.KAnE 


0425 


0036 


IF lENlHEHHAHEt) = 0 THEM RETURN 


0437 


003A 


IF LENINEMflA«EJ) ) 15 THEN FLASI = 2:G0SUB SHDii. ERROR :R 






ETURH 


0457 


D03A 




0457 


D03A 


■ HEEBAEEi = 'Copying * ^ REANAKEI ♦ ' to ' * MAfiEt ♦ 






* Please vail..' 


047C 


003A 


JOSUB RESSAGE.OM 


0482 


D03A 




0462 


C03A 


'idd neit niie at end of directory 


0'4e2 


003A 


KILL •REAOIR.OLD* 


0489 


003A 


mi 'REABIR.RJP* rz 'REACIR.OLD' 


0493 


O03ft 


OPEN •READIR.OID* FCH IHFUT AS 41 


04A4 


003A 


OPEN 'READIR.RJP* FDR OUTPUT AS 12 


04B6 


oa3A 




0466 . 


003A 


IHPUT I!, REANUBl 


04C8 


003A 


REfiNUni - REANUSl * I 


04D1 


003A 


WRITE l2,F.EfiKUnl 


04E2 


003A 




04E2 


003A 


FOR 11 = I TO StRKuRl - 1 


04F1 


003C 


INPIT ll,T[»PJ 


0503 


0040 


PRIIIT l2,l£flPJ 


0513 


0040 


NEJT U 


0525 


0040 


PRINT n.HEMXAHEt 


0535 


0040 




0535 


0040 


CLOSE'lItCLBSE 12 


0543 


0040 




0543 


0040 


'creite copy of data file 


0545 


0040 


Fllif = RIBHTl(STRS(P01NTERl),L£KiSTR$(P0INTERl))-l) ♦ 






'REA.RJP' 


05^7 


0040 


HEIfFlLES « RlBHTf(STRJIREAKUKll,lEHlSTRS(R£ANUni})-l} + 






•REft.RJP* 


05B6 


0044 




058B 


0044 


DPtH FILE! FOR INPUT AS ti 


059C 


0044 


OPEN NEKFIlEf FOR OUTPUT AS 12 


05AE 


0044 




05AE 


0044 


IKPUT ll,TEItf' 


05CO 


0048 


MRITE I2,IEI1P: 'frequency 


0500 


0048 


INPUT IIJEHP 


05E2 


0048 


NRITE I2,TERP: 'pulse width 


05F2 


0048 


INPUT IIJEHP 


0604 


. C04B 


KRUE I2,TEHP: 'strobe delay 


0&14 


004B 


INPUT IIJENP 


0&2& 


0046 


WRITE J2iTEHP: 'noiile 


UZh 


0043 
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hsagent Jet rrinter PftSE B 

Reagent Filir.a O7-09-B6 

15:04:35 

OHset Dali Source line IBfl Personal Cowuter BASIC CoipiUr V2,00 



0636 


0048 


INPUT »i,TEyiP$ 




0643 


0048 


PRINT S2,TE«P$! 


'concentration 






INPUT IIJEKPI 




mf^ 


0048 


PRINT I2.TEHPI: 


'density 


067A 


0048 


INPUT II.TEHPI 




0660 


m 


PRIHT »2,TL1PJ: 


'viscosity 


069C 


004B 






UK 


004& 


CLOSE lUCLOSE 12 




06AA 


0045 






OdAA 


W48 


eCSUB nc:5A6E. OFF 




06BO 


0048 


6DSUB DISP.OIR 




06S6 


:-048 


RETURN 




06eA 


0048 






06BA 


0048 


m tPAGE 
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Reisent Jtt Printer PAGE 9 

Reagent fiiino 07-09-86 

15!04:35 

Offset Sata Soiirce Line IBft Personal Couputer BASIC Coipiler V2.00 

06Bfi C04S "Zi 'renaae reagent 

OfcBF 0043 type: * 0 

i)6Ct 0048 FUHCTi » 'ffBnaae* 

O&DO 004S BOSUB SET. SOURCE 

06D6 0048 IF LEfl(REAKAnEf) = 0 THEN RETURN 

m 0G48 ED5UB SEARCH 

f!6EE 0048 IF POINTERl • 0 THEN FLfiBX = 1:6DSUB SHOi.EIlRDR: RETURN 
070A 004B 

070A 004B 60SDB 6ET.tO.HAHE 

0710 004B IF LEN(KEHHAn£$l * 0 THEN RETURN . 

0722 0048 IF LENIJiENHA«E$} ) 15 THEN FLfiBX * 2:GD5UB SHOiI.ERRQRtft 
nURN 

0742 0048 IF NniNAHEr=_REfififtHEt THEN RETURN 

0755 0048 NESSABEI = 'RBnaiing ' ♦ REAKA«E$ ♦Mo * * N£«NARE$ * 

' Please wait..* 

077A 004B G05UB HESSABE.OH 
O7B0 004B 

0780 0048 'renaiing rsagent naie in directory 

0780 O048 KILL 'REftDIR.OLD* 

07B7 0D4B HAKE 'READIR.R3P' AS 'REftOIR.OLD' 

0791 0048 ' OPEN 'REaOIR.DLD' FDR INPUT A3 II 

07A2 0048 OPEN •READIR.RJP* FOR OUTPUT AS 12 

07B4 0048 . 

0764 0048 INPUT 11, REANUHl 

07CS 0048 KRITE t2,REAKUni 

0707 0048 

0707 0048 FOR 11 s I 10 Kimn 

07E4 004;i INPUl IIJE'TJ 

07F6 004A IF II <> PQUaRZ THEN PRIfi'T l2,TErtPI 

0B13 004A IF 11 = PDlK'-ftZ THEN PRINT 12,SENNAHEJ 

0B30 004A NEIT IX 

0B42 004A 

0842 004A- CLOSE IhCLOSE 12 
0850 004A 

OB50 00 4A BOSUB RESEDBE.DFF 

004A IF REAKAKEt = SELNAnEt THEN REAHAKEi = NEmEI:60SUB T 

m 

0B7S 004A 605UB OISP.01R 

0B7S 0C4A RETURN 
0B7F 004A 

0B7F 004A KJl JPfiBE 
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Reaoent Jet Pr;ntfr 
Reagwit filing 



PAGE 10 



Offset Sita 

0B7F CvU 

0B3i mti 

0B75 W« 

0595 c:*s 

oBCo wi; 

08C6 COU 

OBCC C04* 

osflo. 

08D0 C:;4A 

0BD5 ^« 

OEDB 004A 

0BF7 004A 

0BF7 OOW 

090E D0I4 

0914 O0;ft 

09i; W4; 

09K 004A 

09:s 

094R 

09SA OC^A 
096j; 

096A C^;4ft 

0971 W4ft 

0977 004S 

097B W4A 

097B 004A 

0960 004A 

09B4 W4h 



L5i04!35 

.:ne It'l Personal Coaputer BASIC CowiUr V2.00 

"ifiiecl reiawt for printing 
'TrH - 0 . 

6GsJE oEl.SQljRCE 
IF UKfRMNAHESl = C THEN RETURN 
IF RKNAKEJ = SELNAflEI THEH RETURH 
SOrJB T3DA 

eosys iisp.DiR 
mm 



ECSuB SEARCH 

IF mnmi = o then flabz = iisosub shoi^. error: return 

ISEsASEt = 'Selecting ' + REANAHEI ♦ ' Please Wait. 
BO^B nESSABE.C)! 

'change entrys in reaqBnt default file READEF.R 



DFEti •HEADEF.Rj?* FOR OUTPUT AS tl 
FlLEt = RIEHU(STRt;F0irai},LEXt5m(PDINTERl))-n ♦ 
•REA.RJF* 

PRINT ll.FILEl 
PRINT n.REA'nAnEi 

aosE II 

BOSUB »!;=EABE.:FF 
RCTURK 

T3E: 'exit reagent filing 

mm 

REn t?AEE 
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ftfiieent ki Fruvter 


^'ea9erlt Filinq 




CHset 




sour 


mi 






0?B9 








C34A 




m\ 






m: 






m 






09d: 












OftOS 






OAtl 


oo;a 




Qfil4 


&G4A 




0A2A 


004« 




0A3i 


004A 




0h35 


w4A 




0A35 


004A 


GET ' 


0A3A 


004A 




mt 


004A 




Ofi7ft 


004A 




0A97 


004A 




0A9B 


004A 




0ft9B 


<X)4A 


6ET.I 


OAAO 


004A 




OAC& 


004A 




0A04 


004A 




Oftfl 


C04A 




OAFS 


004A 




OAFS 


004A 


Cli? 


OAFfi 


004A 




OAFA 


004A 




OBOl 


&04A 


k 

r 


061Q 


004A 




0B2F 


CK)4A 




0B36 


C04A 




OBU 


004A 




0B47 


mti 




0B55 


004A 




0B&3 


D04A 




am 


004A 




0B7D 
OBBB 


004^ 
004C 


I 


0697 


004c 




OBDH 


0C4E 




OBDA 


W4E 




OBEC 


004£ 




OBEC 


C04E 




OBFA 


0050 




OCOC 


OC50 




0C3F 


0050 




owe 


0050 





PABE 11 
07-09-B6 
15:04:35 

IBn Persona Cosouter BASIC Coapiler V2.00 



CFEM 'READIR.RJr FOR IHPUT AS 11 

IK5UT tl^REASUHl: ' get nuiber of rEaqents in dirtc 

IF REnKUhl « 0 TO CLOSE II: RETURN 
TEKPt « " 

KHILE {FOIKTES; < RtMXI AHO (REANhftE* <> TEHPf) 
HUE INPUT ♦IJEHPI 
PDINTtRI = POIKIERZ ♦ 1 

um 

IF REANARHt 0 IEftP$ TKEH POINTER! * 0 

CLOSE 11 

RETURN 



LOCATE 25,1:C0LDR 15,0:PRIHI 'Enter Reaoent Ka» to 'FU 

LINE INPUT;", RE^HAREi 
LOCATE :5,1:PR1KT SPACEJ(79); 
RETURN 



LOCATE 25,]:C0L0R :5,0:fftIST 'Enter Hn Reigent Hut 
LIKE IKFUT;",N:mnES 
LOCATE 25,hrR:HT i?ACttl79){ 
RETURN 

R: 'display rfiornt directorv in 4 colutns 20 r 

'read selected reagent ir.tD SELNAItES 
OPEN •HEADEF.RJP' FOR INPUT AS 11 
INPUT tl,SELNAnE$: 'rut and discard data ViU nai 

INPUT ItiSELNAnE}: 'read and save reagent nane 
CLOSE 11 

OPEN •RtADIR.RlP' FOR INPUT AS II 

INPUT H,REANUni:' read nuiber oi reagents 

flESSASEt 3 'Reading Reagent Directory Please Mail' 

EQSUB KESSAEE.OM 

TLAGl s 0 

TErJl = REAKUM - 1:IF REAHUHI < 80 THEH TE«PI = REAKUH 

FOR II = 0 TO TEltPl 

LOCATE (U.nOD 201M,(INT(ll/20li201+l 
PRINT SPACEtdS)} 

mil II 

FGR 11 s 0 TO REANUHl - 1 
IN'PUT tl,REAKnKEt 

LOCATE III HOD 201+1, tINTlU/20U201+3 
PRINT REANAnEl; 

IF REhNAKEI = SELNAKEi THEN LOCATE III m 201* 
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Reagent hi Printer ^^^^ 
Reaoer-i Filing 07-09-8fc 



15:04!35 



Otfsft 




Satrce Line ii^ Fersofsal Ccasuter BASIC Cospiler V2.00 






3,t!K7{i:/20)O01+l:PF:i{T 


0C9E 


0050 




OCBO 


0050 


acfSE n 


0CB7 


COSfi 




OCBt 


0050 


RETITb 


OCCl 


W5C 




occ: 


0050* 




OCCi 


0050 




0CC7 


C078 


R£KJI(0,0J = 'UUit* 


OCDf 


0078 


KHUJtO.I) = 'lieHve i rBigent file troB the directory' 




0073 


K:KJJ(1,01 ' 'Copy' 


ODIS 


0073 


TBCiUl^l) ^ *Copy a rttgent Ule to a new rtagent naie 

t 


od:e 


CC7B 


KEKUtf2,0J = 'RenaiB* 


OD48 


W7B . 


HtKitf{2,ll = Tsniie a reagent fiU in the dirEctory' 


0D&9 


W7B 


R£KUfa/jl = •Select" 


0D84 


W78 


.»lEKDn3,l) = 'Select a reagent file to be printed' 




M7B 


REHllS(4,01 = 'Exif 


OGSB 


0078 


ntK[Jtl4,I) = 'fieturn to the lain lenu* 


-0DD7 


0078 




0507 


007S 


COLDS ?,C:CLS 


ODEA 


0078 


LOCATE ?l,t 


0DF7 


0078 


FDR n = no 80 


ODFE 


0078 


PSIKT *r] 


OEOB 


0078 


KEH II 


OEIB 


0078 




0E16 


C078 


m 1Z)^JI = 0 TD 4 


0£21 


0078 


EuSUB nttjU.uFF 


0E27 


0078 


KEIT HDiUI 


OE37 


0078 




0E37 


0078 


BQSUB OIEP.DIR 


0E3D 


0073 


IF FUBI ) 0 m KIEUB SHDH.ERROR 


OE^E 


0078 


- 4 


0E55 


0078 




0E5B- 


0C78 




0E56 


0078 




0E5F 


0078 




0E5F 


0076 




OEM 


0078 


bOSUB n£KU.OFf 


OUk 


0078 


ntHUi = rmi * difh 


0E7& 


0073 


sssuB 


0E7C 


0078 


mm 


0E60 


0O7B 




OEBO 


0078 


KEKU.DRi 


0ES5 


0078 


LOCATE :2,IRDi'JHI01+i6 


0E9C 


0078 


COLOR 0,7 


OEAB 


0078 


FRIKI MKU$(?»EV<JI,01} 


OEC& 


0078 


LOCfiTE 25 , *0-LE» iraui {KM , 11 } /2 


OEFA 


0078 


COLOR ?,0 


0F0& 


0078 




0F25 


0C7B 


RETURH 


0F2? 


0078 




0F29 


0078 


!\£lflI,CrF: 


0F2E 


0078 


LOChTE 22,lKEKljltl01tl6 
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f!£255nt Jet Printer P^^t 13 


Reaoent Filing 


07-09-56 






15:04:35 


Dfhet 


Data 


Source Line !B« Personal CoiDuter bfiSlC Coi.piler V2.00 




01178 


CGLDR U,0 


OFul 


007 B 

VV* u 


FpIKT ncS'J»(KENUl,0)i 


0F6F 


007B 


LOCATE 21 , *0-LEH iriLNUJ mm, 1)1/2 


ftFA3 


007 B 


PRIHT SPHCEnLENiriLKUJmUI,!)))! 




An7R 

UUf 0 


RETURH 




vvia 




vrLL 




■■nun • tnnun* 


firm 


UU/B 


Of) FLfiEI GDSUB ERl. ER2. ES3, £R( 


V. tfc 


Uv/O 


fRR;!SS$ = ERRJ + * Strike any key..' 


vrrl 




LOCATE 2*.*0-LEN(£RfiHSGJJ/2 






COLOR 13.0 




0030 


PRIHT ERRK5S(; 


i vtu 


VvDv 


ftl = 




VVOV 


WHILE Al » " 




OOEO 

Vv WV 


Al • 1NKEY$ 


1 VklV 


0080 

V vVV 


UENO 






£D5l)B ^lESASE.DFF 


i Vy T 


OOSO 

VVOw 


RETURN 


1 A^fi 

IVjU 


vvCv 




it JU 


ftflftfl 

VVOV 






nfiRfi 


ERRt = REfiNAREy ♦ ' M Founti in the Directory* 




nfitifi 

VVOV 


RETURN 


IVlB 


VVDv 




iV/0 


VVOV 


ER2: 


1 ATB 


WW 


ERRt < 'Reagent Kaie is too Lonq (15 characters lax.)' 


luO J 


VvaV 


RETURK 




QQRQ 
vwou 




1 AflQ 
IvOi 


fiftflft 
uuou 


£R3i 




vUQU 


ERi^l = 'Dueclory is Fall 180 reagents lai.)' 


tnoo 


UUDU 


RETURN 


t Aor 








vwSv 


ER4: 


Iwnl 


vvOV 


ERRI = "Cinnot Hodi^y SELECTd reagent Naie* 


t A&R 
lUMO 


VVOV 


RETURN 


I flat 


VVQV 




lOflr 


vvcU 




twin 


0080 


LOCATE 24 IB - LENIf.E"A6EJI / 2:CDL0R 11.0:PRlHTHESSfi 






GEt; 




0060 


RETURN 


10F3 


0060 




10F3 


DOBO 




10F3 


0080 


nESSABE.OFFi 


lOFB 


OOBO 


LOCATE 24,1:C0LQR ]3,0;PRInT SFACE1(79)} 


1121 


ooeo 


RETURN 


1125 


0080 




1125 


0080 


m SUB 


112C 


0080 




UC9 


0060 




innh 9ytes AvaiUble 


A5713 Bytes Free 



0 Warning Error (st 
0 Severe Error (si 
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Reaoent Jet PrinUr ^^^^ J 

OHsEt Dii5 Icurc? Line IB" Personal Coiouter BASIC CoBpiler V2.00 

0030 0006 3 $T!T.E:'R2acir:t Jet PrirUr JSUBTITIE: 'Pattern Filinq' 
0030 WC6 'r.::ULt - 'PAirlLE* File Hanoiing for patterns 
0030 M&6 • 

0030 O006 'AliTKDR - H. m tnevoliJ 
0030 000& ' 

0030 mh -l^'fRJSHT it) 1935 ABBOTT LAfjflftTDRIES- 
0030 mi • 

O03O 0004 RP/ISIOW - 1.0 02-i2-Bi NAE Creation of initial code 
0030 0006 • 

0030 OOOi *5iST£n - This code can only be coapiled by the BASCOn 
0030 0006 • CDKPILER, it -lU not run under the INTERrFETER! ! 

0030 W06 ' 
0030 0006 'DESullPTIOa: 

0030 0006 • This toduie alloK file handling for patterns. When inv 
D^d, it displays 

0030 O006 ' the curreflt contents of the patt&rn directory in 4 colu 
ins of 20 entries 

0030 0006 ' each. The pattern »hich is currently selected for prin 
ting is larked ty 

0030 0006 ' an asterisk to the lett of the pattern naie. After the 
directory is listed 

0030 0006 * the user is presented »ith 5 lenu choices. The left an 
d right arroHS are 

0030 0006 ' used to highlight lenu iteis and the enter key is used 

to invoice action. 
0030 0006 ' The lenu choices iRfl i^.jir actions aret 
0030 0006 ' 

O030 0006 ' DEi-ETE • Fpiote i pattern file frot the directo 

n 

OC3 0 0056 - COPY - C:oy a pattern file to a net* pattern n 

ase, savmo the old pattern 

0030 0006 • REi'ft'^E - the naie of the pattern without 

changing the pattern itself 

0030 0006 ' SELECT - Selct a pattern for printing 

0030 0006 * EXIT- Return to the lau jienu 
0030 0006 • 

0030 0006 'DATA &ICTIDKARY 

0030 0006 ' Vifil Khich tyce of valid key ^as pushed 

0030 O006 ' HEKUl Hhich lenu ite« is being pointer to t0-4l 

0030 0006 ' Dlf^^ Distance to love HENUI at left or right arro 
■ 

0030 0006 ' FLABl ^'fO'' ^yP* 0'^ 

0030 OOOi ' POINTERI Position of PftTKAREt in directory list 

0030 0006 ' PATHliBl Nuifaer of pattern nates in directory 
list 

0030 0006 ' ELKUWI Nuiber of eleients in a pattern ^ile 

0030 0006 * TEHPl Storage for integers during pattern copy 

0030 0006 ' 11 Counter used during pattern copy 

0030 0006 ' Jl Counter used during pattern copy 

0030 0C06 ' M Kisc. input string 

0030 0006 ' fUltCTi Printed at bottoi of screen during proipt fo 
r pattern naie 

0030 0C06 ' mmil Pattern naie currentW being norked on 

O03O 00O6 ' SELNftKEt Pattern naie currently selected for printing 
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Pattern Filino 07-09-8i 

Offset viti Sc'ifce Line lir. PerEonal Ccwutr BftSIC Cwpiler V2.00 

0030 W36 ' Fi'JJ rilcniat of pattern data file 

O030 CC06 :r:LEI FiU^.^« icr source :attern c!it» file used d 
oring copy 

0030 C006 ■ ' B?;LE* Filensae for destination pattern data *ilB u 

5£ii durirc cooy 

003& 6CGa * )iimm Ne. pattern naie for COPY and RENRUE 

0030 MOA ' -EHPI Pattern naies ire held here as the directory 

is bemo re-nntten 

C030 0056 • NEVFllEi Destination filenaBB used while copying pitt 

ir» bats files 

0030 0004 ' riSSABE* A eessage printed at the bottoi of the scree 

ii 

0030 0066 ' «ENl)«£4,ll Array of strings containing the short and lo 
ng i^nu naies 

0030 «v6 ' ERRKSSt Ressage printtd Mhen any error occurs 

0030 0006 ' ERRI Appended to ERRIiSG: to indicate nature of er 
ror 

0030 0006 ■ TERP Storage of real variables while copying patt 

ern data fifes 

0030 ODC-6 RE^ «PABE 



neagent M Printer 
Pattern Filing 



Offset 


Data 


0030 


O0D6 


0047 


0006 


0047 


0006 


0040 


0006 


0054 


OOOB 


0054 


OOOB 


005F. 


0008 


0069 


OOOC 


0D7B 


OOOC 


00B2 


OOOC 


00B5 


OOOC 


OOAA 


OOOC 


OOCF 


OOOC 


O0E9 


OOOC 


00E9 


OOCC 


OOFS 


OOOC 


oof: 


OOOC 


OOFC 


OOOC 


0100 


OOOC 


0100 


OOOC 



rnSE 3 
07-09-86 
15:11:46 

l£n Pfrscnal Coiputer BASIC Co*piUr "2M 



Source Line 

E'JB PAtTERH.rlLE STATIC 

BOEUB INIT1AU2E 
TyPEI = 0 

VHILE TYPEl 0 3 
At » 

WHILE Al • 

At ' mvit 

IF Al » CHRSIO) 4 CHRfl75) THEN TYPEl « li 



IF AJ = CHRSIO) ♦ CKR$t771 THEH TYPEl » 2: 



'left arrow 
'right arroii 

IF At * CHS$(13J THEN TYPEl « 3: 
'(cr> to execute selection 



ON TYPE! eOSUfi Tl, T2, T3 



WEKD 

tllT SUB 
RER JPAGE 
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Reacent Jet rrir.tpr rftBE < 

Pattern FiliDg 

OHsBt Deti Sourcf Line IW Personal Cofiotiter BASIC Caioiler V2.0D 



0)00 




■iHi»« 3UB-r.0UTIK£5 ruri THIS MDULE *Hi»« 


0100 


ooj: 






0100 


oooc 


Tl: 


'leU arroM 


0105 


oooc 




mil = 0 


OlOC 


OOCl 




IF mux ' 0 THEN RETURN 


CUB 


O05E 




DIFR = -1 


0122 


WIO 




6CSUB m.fim 


012B 


0010 




mm 


012C 


9010 






„012C 


0010 


T2; 


'richl arrow 


oni 


OtilO 




Tvpn = 0 


0136 


0010 




IF mm ' 4 THEH RETURN 


0147 


OOlO 




DIFF2 = 1 


014E 


0010 




BOSUB NEW.nEKU 


0154 


0010 




RETURN 


OlSB 


0010 






015B 


0010 


T3: 


'<cr> (execute selected lenu itei) 


015D 


0010 




LOCATE 25il:fRI?iT SPACES 179); 


017ft 


0010 




ON lim 4 1 6C5UB T3A, T3B, T3C, T3D, T3E 


013F 


0010 




GD5UB RENU.OH 


0195 


OOlO 




RETURN 


019? 


0010 






0199 


0010 


REA iPftSE 
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Rtigw: jet rnnter 5 
Pittern Filing 07-09-et 

15:11:46 



Offset 


Data 


::urcE Line IB?. Fersonai Cosouter chSiC CoaDuer vi.OO 




COjO 


n;: iiUii pittern 




0010 


ryrn = 0 




0010 


flHZU - 'telete' 








0tB5 


ma 


!F LEHlPfinHritI = 0 THEN RE7URH 


01C7 


OCIB 


:? PATKfr^J = EELhWU THEH fUGI = *:BQSUB SHOiI.ERflOR! 








oin 


oort 


^SaliB 5EAKCH 


Ci£Q 


OOIE 


]F PCiHTEK = 0 TKtK FlftSX = 1:60SUB SHOS. ERROR: RETURN 


02C9 


0070 




020^ 


C0» 


ntlnlU = 'ItUim ' * PftTSAHEt ♦ • PlHSB Wait.. 


022D 


0024 




0225 


0024 




022fc 


0024 


'rMrite directory deleting FftTNANE* as indical 






ct) by ?mmi 


022i 


0024 


nil •PATDIfl.CLS' 


022D' 


0024 


It^KE 'PflTDIR.RJP' flS 'PATDIR.QU' 


0237 


0024 


OPEN •PATIIIR.OLB' FOR INPUT ftS 11 


0245 


0024 


OPEN-'PATDlR.fiJP' FOR OUTPUT AS 12 


o:5A 


0024 




02SA 


0024 


IKPUT 11, PATKUn 


m 


002& 


PATII13^I = HUm - 1 


0275 


002i 


raiTE l2,PATXUni 


025b 


002& 




0266 


002& 


IF PATKUW ' 0 IKEH GOTO DIR. DOSE 


0295 


^2h 


FOR II = I TO PhTSUHl ♦ I 


02ft4 


002B 


ITO ll.fATVAHEI 


02Pt 


0023 


IF 11 POINTER! THEH PRINT i2,PfiTfJA«E$ 


02D3 


002A 


KEIT 11 


02E5 


002A 




02£5 


C02A 


DIR.&UtCi 


02EA 


00?A 


aCSE IhCLDSE 12 


o:fb 


002A 




02FB 


C02A 


'riiwe dati file 


02FB 


002A 


FILEJ = RISHlJ(STRMP0IKT£Rll,LtJH5TRll?0INTERll)-l) ♦ 






'PfiT.RJ?* 


03IC 


002E 


KILL FILE! 


0323 


oa2E 




0323 


002E 


'renaie reiaining data files to laintain linked 






list >ith directory 


032: 


002£ 


IfHlLE iPRTKUni ♦ 11 > POINTERI 


0333 


002£ 


SFILEI s RlBHTI(STR$(PDIKTERMl,LEN(STRf (POINT 






ERl+li)-n * 'PAT.R3P' 


0J59 


0033 


DFIUi a fiI8HT$(5TR$lPDINTERIl,LEK(STRtlP01KTER 






iJ)-ll ♦ 'PftLR-T 


0I7D 




KAKE £FILE$ AS DFlIi$ 


03fl7 




POIKTERl * POINTERI ♦ 1 


039C 


mh 


VEKO 


0393 


OOSA 




0313 


0036 


E25UB I^ESSABE.DFF 


0J99 


0036 


m\lkMi = SELIiAHEl 


03ft3 


0036 


605UB T3&A 


03fi9 


0036 


60SUB OISP.DIR 
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Reaoent iei Printer 
Pattern Filing 

Offset Data sc-ircfi Lire 

03iiF 003ft RHTuRH 

03B3 OOit 

03B3 W3b P-in 



PfiSE b 
07-09-86 

m Perscnai Co63uter BfiSIC CoaBiier V2.00 
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Reager.: Jet Prv.-ter P«5E 7 

Pattern Filicq 07-0?-c6 



Offset 




;:urce Li:ie 'i-^ Persnnal Cc:?uter BASIC Cocoiler V2.00 


03B3 


0036 




03Bc 


003i 


TYPEI = 0 


03BF 


O03b 


IF PfiTSUM = 80 THEN FUS: = 3:6051)8 SKQK.ERRORiRETURN 


03DE 


0036 


TuNCT* ' 'Copy* 


03ES 


mt 


BCSUB EET.SOURCE 


03EE 


0D36 


IF LEStF?.T)iAftEn - 0 THEN RETURN 


03FS 


0036 


SDSUB SEARCH 


0403 


0036 


IF POINTEfil = 0 THEN FLAGI - 1:GGSUB SHOW, ERROR: RETURN 


04 IF 


003& 




04 If 


idU 


mm EET.KtV.NAHE 


0425 




IF LtHiraAKEIl = 0 THEN RETURN 


0437 


0C3A. 


IF LEi;iJ;£i:iAriE$l > 15 then FLABI ' ::BOSUB SHOW. ERROR: R 






ETuKK 


0457 


003A 




0457 


0C3A 


KsSfiSEI = 'Copying ' ♦ PfiTHAKEt + ' to * ♦ NEME* + 






* Pieasp Hit..' 


047C 


0C3A 


mm hHSSABt.CN 


0482 


003A 




046: 


003A 


'add Simm it end of directory 


04B2 


«3fi 


XIU. 'PATDIR-OLD* 


0489 


W3fl 


mi 'PATDIR.RJF* AS 'PAT"JR.CLD* 


0493 


003ft 


OPEN 'PATDIR.CLD' FDR INPUT AS 11 


04A4 


003A 


CFEN 'PATDIR.RJP' FOR OUTPUT AS »2 


0486 


C03fl 




04B6 


003A 


IKPUl lU PATKUni 


04C8 


003A 




0401 


oc-3a 


WITE I2,?ATW. 


04E2 






om 


003; 


fOK 11 = 1 :c r;;uu"!ix - 1 


04F1 


0C3C 


INPUT ll-.TEHPJ 


0503 


OO40 


fRIKT CTEKFI 


0513 


0040 




0525 


0040 


PRINT t2,Kni.hAEt 


0535 


00 40 




0535 


0040 


CU3E ll:CLCSE 12 


0541 


0040 




0543 


OO40 - 


'create copy of pattern data file 


0543 


0040 


FIlEf = RieHTiiSTRI(P0IHTERll,lEN(5TWIP0INTERl))-lJ + 






'PAT.fiJP* 


0567 


O040 


mniU = P]SHTt(5TRtlPATHUIllJ,L£H(S7R}(PATKUWJ)-l) ♦ 






'PAT.RJP- 


058B 


0044 




058B 


OOM 


0?EK F1L1$ FOR IKPUT AS 11 


059C 


0044 


C?EK KEiiFILEt FOR OUTPUT AS 12 


05(l£ 


0044 




05AE 


0044 


INPUT t[,aoi 


m 


004& 


WITE l2,Emi 


m 


004& 




05D1 


mh 


FOR 11 s I TO 4 


05DB 


004& 


IKPUT IIJEJIP 


05EA 


0C4A 


iiRITE U,m? 


05FA 


004A 


HEIT II 




OOfA 






004A 


FOR il = 1 TO ELIiUni 
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OHsDt 


Data 


Source Line IBS Personal Coisutpr BftSIC Coapiler V2.00 


0il7 


004C 




rGS j: - 1 to 6 


061E 


004C 




INPUT «i.te«p: 


0630 


004E 




KRITE I2,TE«P: 


Vv* J 


004E 




NEIT Jl 


VD Jl 


0050 




NEIT Ii 


vDDv 


0050 






VBSv 


0050 




CLOSE MiClOEE 12" 


t\kT\ 

vol t 


WW 






VOf 1 


vU JV 




8D5UB RESSftBE.DFF 








EC3UB DISP.OIR 


OiTD 


0050 

Vv WW 




RETURH 


O&Bl 


0050 








0050 


T3C: 


'renaie pattern 




0050 




TYPE! = 0 


068D 


0050 




FUNCTJ » 'RenaiE' 


0697 


0050 




eOSUB SET. SOURCE 


069 D 


0050 




IF LEN(PftTNaKEn ' 0 THEN RETURH 


06AF 


ooso 




B05UB SEARCH 


06BS 


0050 

VV w V 




IF POIKTERI - 0 THEN FLASI » hGOSUB SHOM.ERRORi RETURN 




vv JV 




- 


GADl 


0050 

V V Jv 




BDSUS 5ET.}JcK.NARE 


VOVI 


0050 . 




IF L£K(KEWNAK£t) = 0 THEN RETURK 


VOLT 


0050 

vv JV 




IF L£KtKE*(NARE(l ) 15 THEK FLABI = 2:B0SU8 SKDH.ERRDftjR 






ETURN 




U/Ut 


UVJv 




IF mr^m = patnahes then returk 




WV3V 








WW 




HESSABEJ = 'Renifcinq • ♦ PATKASEI ♦ * to ' ♦ NEKNAKEJ + 






■ 


Plcise Kait..' 


(1741 


0050 
vv jy 




GOSUB PESEAdE.CN 


(1747 


0050 

vv JU 






0747 


0050 




"change jattern naie in directory replacing PAT 






HfinEf Kith »iEii-s;nEt 


(1747 


0050 

VV wV 




KILL 'FfiTDlR.OLD' 


074E 


0050 




KAKE 'PATDlR.fiJP' "3 'FflTDlH.OlD" 


075E 


0050 

VV W V 




OPEH 'PAIDIR-GLD' FOR INPUT AS 11 


0769 


0050 




CrEH 'RAIOIR.RJ?' FOR OUTPUT AS 12 


077B 


0050 






077B 


0050 




INPUT 11, PflTNURl 


07BD 


0050 




WITE l2,PRTKUfI 


079E 


0050 






079E 


0050 




FOR U = no PATHUn 


07AB 


0052 




INPUT llJEHPi 


07BD 


0052 




IF II <> POINTER! THEN PRINT l2,TEnPI 


am 


00S2 




IF U = POINTER! THEN PRINT l2,NEmEI 


07F7 


0052 




NEIT II 


0B09 


0052 






0809 


0052 




CLOSE 11: CLOSE 12 


0817 


0052 






0817 


0052 




BOSUB NESSABE.OFF 


OBID 


0052 






081D 


0052 




'select neN oattern naie if necessiry 


oeiD 


0052 




IF FftTNAKEI - SELNAttEf THEN PATIIAKES = KEWHAhE*: BOSUB T 






3DA 




0B3C. 


0052 




GOSUB OISP.DIR 
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Reacent Jet Printer PfiBE 10 

Pattern Filing 07-09-fii 
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Cniirrs lino lEH Personal Coanuter 6((51C CoBoiler V2.00 


Veto 








0052 

V V W& 


TYPn = 0 


0852 


0D52 


FliHCTl s 'Select* 


0H5C 


WiiL 


sa^UB PET. SOURCE 


flBfi2 


0052 


IF LfNIPATNflHEJl » 0 THEN fiETURK 


0874 


0052 


IF PftTKAKE? - SELKftREt THEH RETURN 


0867 


0052 


E05UB T30A 


086D 


0052 


SOSUB DISP.DIR 


0893 


0052 


RETURN 


0897 


0052 




0897 


0052 


T3DA: 


089C 


0052 


G0SU3 SEARCH 


08A2 


0052 


IF pointer: » 0 THEN FUSI « 1:G0SUB SHDH. ERROR: RETURN 


08BE 


0052 




OoSE 


0052 


KESSftBEt ' 'Selecting ' + PATKAHEJ ♦ • Please «ait, 


08D5 


0052 


EGSUB RESSASE.ON 


08DB 


0052 




08DB 


0052 


'ctiifiQe entrys in pattern default iile PftTDEF.R 






i? 


08DB 


0052 


OPEN 'PAT8EF.RJP' FOR OUTPUT AS 11 


OBED 


0052 


FtLEI = RlGHTi(StRt(P0IKTERll,LEH(STRI(P01NTERt})-I) ♦ 






'PAT.llJP' 


0911 


0052 




0911 


0052 


PRINT 11, FILE* 


0921 


0052 


PRINT ll,PATKAnEI 


0931 


0052 




0931 


0052 


CLOSE 11 


0938 


0052 


60SUB RESSABt.CFF 


093E 


0052 


RETURN 


0942 


0052 




0942 


0052 


T3E: 'eiil pattern filing 


0947 


0052 


RETURN 


094B 


0052 




094B 


0052 


R£R IPAGE 
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A^r*i 

0052 






0950 


0052 






0957 






n-^H •FaiDlft.R3P' FOR IHPUT ftS 11 


07OD 






IKPUT ll.PflTKUfll:' QEt nuaber of patterns in direc 






t nrv 

tori 




09711 


O0S2 




IF PMXUt5I 0 THEH CLOSE ll:RnURII 


0990 


JLAC*1 

0052 




TinPl - " 


099A 


0052 




ralLE (POIKTERI < PATUUMIJ AHD IPATRAHEJ 0 TEHPJJ 


09C2 


0052 




LIKE IHPUT Il.TEflPI 


09CF 


0052 




POINTEM = PDIKIERl + 1 


09D6 


0052 




im 


09DB 


0052 




IF PATHAHEJ () TEMPI THEH PfllNTERI = 0 


09F] 


O052 




aOSE 11 


09FB 


0052 




RETURN 


09FC 


0052 






09FC 


0052 




OAOt 


0052 




LOCATE 25,J:COL0fl 15,0:PRINT 'Enter Pattern Naie to 'FU 










mz 


0052 




LIHE IKPUT: ".PfiTHAnEt 


0ft41 


0052 




LOCATE 25J:FRIK1 SPftC£$(791} 


0A5E 


0052 




RETURN 


m2 


00S2 






0Afi2 


0052 


CET.liEV.NAnE: 


0A&7 


0052 




LOCATE 25,1:C3L0R 15,0:PRINT "Enter Net» Pattern Naie 'j 


ORBD 


0052 




LINE INPUT; '■,N:k-«A«EI 


0R9B 


0052 




LOCATE 2S,1:PF.Ik: 5?AC£it79); 


0AB6 


0052 




RETURN 


OABC 


0052 






O^BC 


0052 


51£?,0iaj 'dissU* dir?ctcry in 4 coluifts, 20 roKS 


Aft ^ 1 


0052 - 




'reao ce*ault pattern nai? intc SELKhflEI 


OACl 


0052 




DPEN •PATDEF.?.:?' FDR IKFuT A5 11 


0RD2 


0052 




INPUT lljSELKAfiEl! 'iJiscara data file naie 


0AE4 


0052 




INPUT tl.SELNAriJ 


OftFi 


00S2 




CLDSE 11 


OftFD 


0052 






OfiFD 


0052 




DPEN "PATDIR.HJP' FOR INPUT AS 11 


OBOt 


WJi 




IKPUT «l,FfiTfii;HI:* read number of patterns 


0b2O 


0052 






OBZQ 


0052 




nE£SfiSEI = 'Reading Pattern Directory Please «ait' 


0B2A 


0052 




BQSUB RE5SAGE.0H 


0B3g 


0052 




FLflfil ' 0 


0B37 


0052 




TERPI = PATNURl - l:iF PATNUHI < 60 THEN TEr.Pl PftTNUH 


0B52 


«52 


I 


FOR n 5 0 TO TEHPl 


OBSE 


0054 




LOCATE (IS HOD 20)+l,(l«T(Il/20)*20»M 


0B91 


0054 




PRINT SPACEHlfil; 


OBAl 


0C54 




KEIT II 


0683 


0054 






0B63 


0054 




FOR 11 = 0 TO PATNUHl - 1 


OBCl 


005& 




INPUT II,PftT/IAREf 


0ED3 


0055 




LOCATE (II m 20in,(INTlII/201*20)*3 


OCOfc 


005& 




PRINT FAINAHEIi 


0C13 


005S 




IF PATNAttEJ = EELNAItE* THEN LOCATE (II ROD 20H 



l,tIllT(lI/20]*20)4l:PRIMT •♦'! 
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Piiiin filing 07-09-B6 

15:11:46 



OH set 




jsurcfi Ufifi IBH Perscnai Conputer BASIC CoipiUr V2.00 


OC62 




S:r7 i; 


0D77 


OOSi 


CLOSE 11 


0C7E 












0C9& 






OCoe 


OCSi 




0C9D 


005& 


m !lENUtM,ll 


OCBE 


W7£ 


hE?«uJ(0,OI = •Delete' 




0C7E 


FSESuUO,!) • *Reiove a pattern tile troi the directory' 


OCCl 


«7c 


M$ll.OI s *Copy* 


OCDC 


COTE 


I£HU$(1,1I = 'Copy 'a pattern file to a nev pattern niie 


0CF5 


007E 


r.EKUI(2,01 - 'Renaie' 


0DI2 


007E 


CTJ(2,1I = 'Renase a pattern file in the directory* 


OD30 


W7E 


K£HU*(3,0) = 'Seletf . 


0D46 


O07E 


KEHUt(3,l] • 'Select a pattern file to be printed* 


ODW 


007H 


HEHUJ14,0) s 'Exit' 


0D82 


007E 


nE»U$(4,l) = 'Return to the uin aenu' 


0D9E 


007E 




0D9E 


W7E 


CDLDR 9,0: CLS 


0D31 


W)7£ 


lDCATE 21,1 


ODBE 


007E 


FDR II * 1 TO 80 


0DC5 


OdTl 


FRIKT *r\ 


0DD2 


007E 


NEIT II 


0DE2 


007E 




0DE2 


007E 


FOR nEKUI « 0 TO 4 . 


ODEB 


007E 




ODEE 


0C7E 


HEIT flENUI 


ODFE 


007E 




ODFE 


0C7E 


B0SU3 DISP.DIR 


0E04 


007E 


IF FLA61 > 0 Tr:K EOSUB SHOy.ERRDR 


OEIS 


007E 


flENUI = 4 


OEIC 


007E 


SQEUB HEHU.ON 


0E22 


0&7E 




0E22 


007E 


RETURN 




007E 




0E26 


Ofl7E 




0E2B 


007E 


fiCSUB HEUU.CFF 


oni 


W7E 


ftENUl « REKUl ♦ DlFFl 


0E3D 


007E 


eOSUB RENU.ON 


0E43 


007E 


RETURK 


0E47 


007E 




0E47 


C07E 


KEW.QN: 


0E4C 


COTt 


LOCATE 22,(KENIIIM0I+18 


0E63 


COTE 


COLOR 0,7 


OEJ 


007E 


fRlNT nENliflKEKU:,OI; 


OEB& 


D07E 


LOCfilE 25 , 4 0-LEN (KENUJ ( RENUI , 1 ) ) / 2 


OECl 


007E 


C310R 7,0 




007E 


fRIHT r\ENUt(HENU:,llj 


OEEC 


007E 


RETURN 


OEFO 


007E 




OEFO 


0'j7E 


r.SHU.OFFi 


0EF5 


007E 


LOCATE 22,(HlNU:U0)+18 


OFOC 


007E 


COLOR 14,0 
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PRIKT REN'Jt(«£HU:,0); 
IDCftTE :5,«-LLHmEKUJ10Ul,ni/2 

RETURN 

OH FLfiBl SOSUB ERl, Efi2, EM, ER* 
ERRflSSi ' im + ' Strike any key.,' 
LQWTE :4,40-LENltRRnSGJl/2 
COLDR 13,0 
PRINT ERRSSSJj 
AJ = " 
tlHILE R$ = " 

A$ = IKKEY* 

VEND 

BDSUE nESSRSE.DFF 
RETURN 



Offset 




OFlfl 


007E 


OFdi 


007E 


OFW 


007E 


OFBF 


007E 


0F93 


007E 


0F93 


007E 


0F9B 


007E 


0Fft9 


007E 


0FB9 


0086 


OFDB 


0066 


0FE7 


0086' 


OFFA 


0086 


OFFE 


0086 


1009 


0086 


1017 


DCS6 


lOlA 


0086 


1030 


00B6 


1024 


0066 


1024 


0086 


1029 


0086 


1039 


0086 


1030 


00B6 


103D 


0086 


1042 


00B6 


104C 


O0B& 


toso 


0086 


lOSO 


0086 


1055 


D0B6 


105F 


00B6 


1063 


00B6 


1063 


00B6 


1068 


0086 


1072 


0086 


107i 


00S6 


107b 


0086 


107B 


0086 


lOBfc 


0086 


lOBA 


0086 


lOBA 


0086 


106A 


0086 


lOBF 


0086 


lOEB 


0086 


lOEC 


00B& 


lOEC 


00B& 


ICF3 


00B& 


16BB 


00B& 



ERl: 



ER2: 



ER3: 



ER4; 



ERRI = PATKAHE* ♦ • Hot Found in the Directory* - 
RETURN 

£RR$ ' 'Pittern Kiie is too Long (15 characters •«.)' 
RETURN 

ERRt = 'Directory is Full (BO patterns lan.)' 
RETURN 



im = *Canr,ot nofliiy EELECId pattern Haie' 
RETURN 

HEESftBE.CX: 

LDEfiTE 24,33 - LEHtP.ESS^SEIl / 2:CDLCR 11,0:PR1NT HESSfi 

GEt; 

RETURN 



hESSftSE.OFF: 

LOCATE 24,liC0LCR 15,0:PRIHT 5PACEf(79)j 
RETURN 

END SUB 



50426 Bytes Available 
45b?0 Bytes Free 

0 Warning Error (s) 
0 Severe Error ts) 
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Pe»3Er.t Jet Prititer P^St I 

Hain Lir.e Code 

15:27:04 





Data 


Source Line Itft Personil Cosouter BASK CoipiUr V2.00 


0030 


mb 


m snTLEi'Reigent Jet Printer' JSU£TniE:'«ain Line Code' 


0030 


0006 




0030 


O0O6 


•HODULE - 'WIN' 


0030 


0006 




0030 


0006 


•AUTHOR - H. ft. Ensvold 


0030 


0006 




0030 


0006 


•COPYRIBHT (CI 1906 AEBOH LABORATORIES 


OC30 


0006 


'REVISIOK - 1.1 02-19-86 NftE Mi notes anti revise TYPEl resEtin 


0030 


0006 


0O3O 


0006 


- 1.0 02-14-B6 NftE Creation Df initial code 


003O 


0006 




0030 


0006 


'SYSTEM - This code can only be coipiled by the BASCDK 


0030 


0006 


COnPILER, it Hill not run under the INTERPRETER!! 


0030 


0OC6 




0030 


0006 


'DE5CR1PT10K 


0030 


0006 


This is the tain controlling lodule for the Rftigent Ui 






Printer. 


0030 


0006 


It dispUyt a tenu in table ^ori that alloMS 6 function 






5 to be 


0030 


0006 


selected, PA'TERU DErlNlllDK allows the user to define 






patterns 


O03O 


OO0& 


to be printed. FATTEnK riLIKB lets the user delete, co 






py, renaae 


0030 


0006 


and select patterns tor printing. REAGENT CALIBRATION 






penits settinQ 


O030 


0006 


of operation parjieitrs for difftrent reagents. REAGcH 






T FILING is 


0030 


0006 


the saie as pattern nlinq. PRINTIKS PRINT prints the 






selected 


0030 


0006 


pattern nith the selected reagent. SYSTEH ElIT TO DOS 






ends the session. 


0030 


0006 


Using up and dom arrox keys let the user love through 






the lenu and 


0030 


O0O6 


the Enter <cr> key activates the selection. 


0030 


0006 


r 


0030 


O006 


'DATA DICTIONARY 


0030 


O006 


HEWJl This value represents the current cenu 






itei (0-5) 


O03O 


0006 


nENU$(5,l) String array for displaying lenu iteis. 






6 roNS by 2 coluini 


0030 


0006 


Each roi corresponds to a lenu itei (0- 


0030 


0006 


Sl 

First coluin is short aenu niic in high 






lighted area 


0030 


0006 


* Second colusn is long description displ 






ayed at lenu botloi 


0030 


0006 


KRDKKSl This array stores to roM in nhich the i 






hort lenu naie Mill be displayed 


0030 


0006 


DIFFl This value is used it change HEKUX in r 






esponse to arron key* 


0030 


0006 


lYPEl This value is set based on which valid 






key is pressed 


0030 


0006 


0 = No valid key. 1 - Up Arrow. 2 = 0 
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10 



16 



20 



■- 25 



3D 



35 



40 



45 



50 



F.rtioent Jet Printer 2 
«£in Line Code 07-09-86 

!5::7:04 



55 



Offset 


Data 


Source Line i&H Personal CosDuter 3AS1C Coipiler V2.00 






Dun ArroN, 3 * <cr>, 


003O 


0006 


TEMPI Used to store OU! nhile screen is ref 






resfied 


O03O 


0006 


fl$ Used to store single input keystrokes 


0030 


0006 


CJ Used to store special graphics characte 






rs used in drawing the lenu table 


003O 


0006 


11 Counter used to refresh display 


0030 • 


0006 


RI Roi in Khich special graphics character 






is disolayed 


0030 


0006 


CI Doluin in which special graphics charac 






ter is displayed 


0030 


0006 


REn JPABE 


Reaaent 


J3t Printer P^^E 3 


Hain Line Cog? 


Uf VI bD 








Offset 


Datd 


EcurcE Line ic* Personal CotDUter chajt LOflpiier ¥i..yu 


003h» 


0006 




003G 


0vv6 


J'.ain-liftB coie tor R^? fteagent ist Printer 


003O 


OOC-6 




0030 


0036 


f.mtH.llStSUiitl 


0030 


0006 




003} 


0006 


Bum INITIftLIIE 




0O06 




mi 


00C6 


mil TYPHI 0 3 


0056 


0008 




0056 


0208 


TVPEl = 0 


OOSfi 


0008 


ft$ = 


OOiT 


OOCC 


WHILE A$ ' 


0076 


OOCC 


AS = IHKEYI 


ooso 


oooc 


HEKD 


0083 


oooc 




0083 


woe 


IF » CHRJIOI + CHRJ(721 THEN TYPEI - W 






up arroN 


OOAB 


OOCC 


IF A$ = CHflttO) ♦ CKRttBO) THEN TYPEI • 2:' 






dcttn arroM 


OOCD 


oooc 


IF A$ s CHRIini THEN TYPEI ' 3i' 






(cr> execute comand 


00E7 


OOOC 




00E7 


oooc 


DH TYPEI E03UB TI, T2, T3 


00F6 


cooc 




O0F6 


oooc 


VEXO 


OOffi 


oooc 




OOFA 


CflOC 


CLS 


0101 


oooc 


COLOR 7,0,0 


0112 


OOCC 


5Y5TEH 


0116 


oooc 




OIU 


ooc: 


m 1PA6E 
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Fsigant J:t Printer P^SE < 

Hain Line Code .07-09-9i 

15:27:04 

Offset Data Source Line tE:^ Personal Coiputer BASIC CoiDiUr V2.00 

out OOOC 'HtHiM Sli3-R3UT1HES FDR rSlK PR05RAR 

out OOOC Tl: 'up arrow 

OllB OOOC IF fiEKUI = 0 TO RETURN 

012A OOOE DIFFl » -1 

DIM 0010 BDSUB HEM.M 

0137 0010 RETURN 

0t3S COlO 

013B 0010 12: 'dDKn arrov 

0140 COlO IF nENUI = 5 THEN RETURN 

OHF oolo diff: - 1 

015t 0010 605UE NEW.NEHU 

015C 0010 RETURN 

OUO 0010 

OUO 0010 T3; 

ui65 OulO ON KENUl + 1 GOSUB 131, T32, T3j, T34, T35, Ht 

017C 0010 IF HEN'Jl < 5 THEN TYPEi = Oi' reset TYPEI so prcgrai 

won't end - " ■ 

015E 0010 SCREES 0,0,3,3 

OtfiS 0010 RETURN 

01A9 0010 

OlA? 0010 131: 'pattern definition 

Olfit 0010 CALL PATENTRK; 'in Mdule PATENT 

OIBA OOlO 60SUB REFRESH 

OICO 0010 RETURN 

0IC4 0010 

01C4 0010 T32: 'pattern filing 

01C9 0010 - SCREEN 0,0,0,0:CLS 

01E5 0010 CALL PATTERS.FIIE: 'in lodule PATFILE 

OlFl 0010 RETURN 

01F5 OOlO 

01F5 0010 T33: 'reagent cihbraucn 

OlFA OOlO CALL REAoENT.ChJt^ATE; 'in lodule REACAh 

0206 0010 RETURN 

020A 0010 

020A 0010 T34: 'reagent filing »nu 

020F 0010 SCREEN O,0,O,DtCLS 

022B 0010 CALL REAdENT.FILE: 'in lodule REAFIIE 

0237 OOlO RETURN 

023B 0010 

023B 0010 T35! 'print pattern 

0240 0010 CALL PATPRINT: 'in lodule PATPRIKT 

mZ OOlO RETURN 

0250 0010 

O250 0010 T36: 'eiit systei, don't reset TYPEZ 

0255 0010 RETURN 

0259 0010 

0259 0010 REH JPABE 
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^saceni Jet Printer ?"5E 5 

flain Line CoiJe O7-09-Bfc 

15:27:04 

GffsEi Data Scurce im IBR Personal Cceputer BASIC Ccaoiler V2.00 



025"} 


■00 JO 








BjEUB n:Ki!.OFF 


VXBT 


0010 

VViU 


HEWS - ftriiUI + DIFFI 


1177ft 






Vif 0 


WJ V 




fi77S 


M10 

WIV 




Uif h 






fl97F 
vitf 


Wiv 


CALL PCl.lKIT 








VISA 


Ml ft 


* i(s*in3 and inifialtiP arravs 


fl7!in 


cnio 






MIC 


An'iiiiD) s 4 




MIC 


RfiDVKl) = 6 


02B1 


OOlC 


WiCWl2) = 10 






Kntft!Z(31 = 12 


02D7 


OOlC 


f?CVIt4) 3 U 


02Efl 


OOlC 


KfiOifllS) = 20 




OOlC 




02FD 


OOlC 


mti CI}JU$(5.11 


0/FE 


004C 


REBICKE HEKU.5TRINE.DhTA 


0305 


034C 


FGP 11 s 0 TO 5 


030B 


004C 


REftD HENUJdZ.O) .flEKUJtll.l) 


033B 


C04E 


KEIl II 


C31B 


004E 




0316 


004E 


' set initial valuts intti vsriftbles 


034B 


004E 
wit 


T¥?tZ = 0 






flE'JUl 3 0 


0159 


00<E 




ViJJT 


0fi4F 


lfrFRr?H* ' rerfr an trrppn ais M"iliahi rurrpnt aenu s&lectiotl 










Vv^t 


:-:cr« (j n ft Q.rc.f"*^^ 7 0 0 

md^f Wf-J^ VfWi Lk*^« U^kU'l f 1 V ^ V 










w^c 


















G04F 


COLDR 13.0 


03CE 


C04£ 


LCCftTE 1.31 




0C4E 


FRIHT 'REAtewi JET Pf(I!JT£R*f 


03E8 


C04£ 


CClCS 10,0 




004E 


LOCATE 5,2& 


0401 


Ci04£ 


PnlKT 'PfiTTcRH' 


040t 


004E 


UCATE n,2b 


041& 


004E 


FRIHT TlEAStlfT' 


042S 


0C4E 


LOCATE \b,2h 


0435 


004E 


PRINT •FF.IHTIW 


0442 


004E 


LOCATE 20,27 


044F 


004E 


PRIMT *SYSTE)C 


045C 


eoiE 




0«C 


004E 


;!raii Ue senu tsMe in special graphics cttaricters 


045C 


004E 


COLOR V,0 


OUS 


004E 


COS n •- IB TO i: 


04iF 


004E 


LOCATE 2.:i:FRI}iT '0'; 


045A 


00(E 


LOCATE B,i::FfimT 'D'j 


04A5 


004c 


LOCATE H,ll:Pf!I«T 'P*; 
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flain Line Code O7-09-B6 
0^fset Dati Scurce line IE?! Fersonil Ccipuler BftSlC CoepiUr V2.00 





mi 


IGChTE 18,!::PRI«T 'P'; 


04DB 


004E 




04F6 


004E 


LOCATE 24,n:PRINT "D*; 


0511 


004E 


liElT 11 


052* 


D04E 


FOR 11 5 3 TO 23 


052B 


004E 


LOCATE U,l7;PRrHT 'J'; 


05At 


004E 


LOCATE I1,M!PRINT '3'; 


05il 


D04E 


«En 11 


0571 


OOlL 


RESTORE TABLE 


057B 


mi 


FOR It « I TO 12 


057F 


004E 


READ R1,C1,CS 


0592 




LOCATE RI,!:i;FRINT CI; 


OSflE 


OOLi 


REIT 11 


05BE 


0056 






WtlD 


* nrint thp in^tructiflft? 

Ul 1 II L LIIC I1I3LP ULbiUlld 




VVJO 


MLDR 7 0 

WULUtV r ) V 




MSA 




IJ tiUI 




PRINT *lhp or to hiahlicht aenu itsns. Us? to 


















Ml; .IP 1*^ 


J 

UOun 




1 nrilTF 9^, l^.'PRIHT 






1 nraTC n^PfliuT *ny*» 




Vw JO 




' Oi3E 


VV«#D 






VvM 


TFKPT s HFWIll 

Itnrk ntnu* 


V u 


0053 


FnS HFHUl e 0 TO 5 

run IlLimb V lU W 


064B 




8DSUB JtEKU.CFF 


UDwl 




MFIT »!FIJU1 - - - 


VDO i 


VV JO 




vQuO 


W JO 




vWwB 


ir« Jv 


' hishliflht thi curr^ntlv ictlvf itnu itsi 


vsww 


C35S 


6Q31JB KEKU.OK 


vOvL 


WJO 




VU w 


MSB 


SCREEH 0.0.3,3 


0&B5 


OOjB 


RETURN - 


V Vw 9 


0058 






005B 


RENU.DK: 'highlight the tenu r.iH\Sl ind display iti Icng descript 






inn 




0058 


COLOR 0,7 




0058 


LOCATE RRDKURENUI) ,52-LEN(HENUS(nENinT0) 




0058 


PRIWT R£KU5tnENlIl,01; 


06F6 


W58 


COLOR 7,0 


0704 


0058 


LOCATE 23,40.5-LE>HKEKli$(KEmJl,l)l/2 


0739 


0058 


FrtINT tlEKUJ(KENin,Ili 


0757 


0058 


RETURN 


075B 


0058 




075B 


0O5B 


n.OFf ['(in-highlioht leng KEHUl ind erase long description 


07fc0 


0053 


COLOR 14,0 ' 


07tC 


0053 


LCCfilt HSD;'110UI) .SKEHIHENW tKENUl.O) ) n 


07fiC 


005S 


FRjHT fltSUJlH:KUl,0)} 


07CR 


005B 


COLOR 7,0 • 


070S 


C058 


LOCATE 23 , 40. 5-LEN ir.ENU* (r.ENW ,111/2 
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RcEOcr:! ;et Fnnler ^J^t 7 

""^^ l5i27:0A 
DHset Data ::urce Line IBH Personal Cofiputer BftSlC Compiler V2.00 

OBOft C05B PRIHT SPACEJlLEHt«ENUaiK£HUX,I)JJi 

052r W5B RETURN 

0833 oose 

0B33 OOLB REH 5?RBE 
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25 - ■ 



30 



^eacEftt Jfit FTintir PAGE B 


r.ain l: 


TiS Ccce 


V/ U7 OD 






I a/IU^ 


utfsfii 


Jiii 


&i)'irce Line Ion Personal Computer efiSk ConDHBr Vi.uu 




Ov53 


iHitfH DATk FiELIlS USlD Bi THE nftlH PivOtRhfl ♦»#*♦♦♦♦ 


0B33 


0058 




0333 


0053 


KEKU.STnlKs.DATA: 'HrKt entry is lenu naie, stcono is lo 






ns description 


0838 


00^ 




0636 


COM 


DAlft *I>ErimTIOK', 'Creite anil Hodify Patterns" 


083A 


W53 


ti M. 9 A ft IJ* ft Anil «h p _rf*11.A 

DATA *FILI}j£*, 'Delete, Copy, Reniie, and Select Pa 






tterDS' 


083C 


0553 


DATA 'CAUBfihTIOM', 'Calibrate anii Hodify Rpaoent Profil 


083E 


wsa 


DATA 'FILIH6*, 'Delete, Copy, Renau, and Select Re 








0840 


0C53 


DATA 'PRINT', 'Print Selected Pattern nith Selecte 






d Reagent' 


0842 


0053 


DATA 'EXIT TO DOS', 'Leave Prograi and Return to DOS' 


0844 


005B 




0844 


0C5S 


TAELE: Mirst entry is rot, second is coluin, third is special 






graphics character 


0B49 


0053 




0849 


0058 


DATA 2,17/7' 


0S4B 


005B 


DATA 2,64, 


084D 


O05B 


DATA B,17,'C' 


0B4F 


0058 


DATA 8,64, T 


DBS] 


0058 


DATA 14,17,'C' 


oes3 


0058 


DATA 14,64, '4* 


0855 


OOSB 


OfiTA 1B,17,':' 


0857 


0058 


DfiTA 1B,64,T 


0859 


0056 


DATA 22,17,'C' 


0856 


0058 


• DATA 22,64/4" 


085D 


O058 


DATA 2<,n,V' 


085F 


OOSB 


DATA 24,64, T' 


0861 


OOSB 




08&t 


0058 


□10 


08&5 


0958 




0B42 


0058. 




5042^ liUs Aviiiabli 



476B0 Ifiti FfM 

45 

0 Varnin; Error($) 
0 5erere Error {s) 



50 Claims 



1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 
55 a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice: 

6 transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 
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thereby cause the jetting chamber to omit a substantially uniformly sized droplet of diagnostic fluid through 

the orifice; and ' , , ^. 

means for generating a number of electrical pulses sufficient to cause a desired quantity of the diagnostic 

fluid to be dispensed. 
5 2. The invention of Claim 1 wherein the system further comprises: 

at least one additional jetting chamber in fluid communication with an additional diagnostic fluid; 

at least one additional transducer in mechanical communication with the additional jetting chamber; 

at least one additional means for applying en electrical pulse to the additional transducer; 

means for generating respective numbers of electrical pulses sufficient to cause precise quantities of the 
TO diagnostic fluids to be dispensed in a desired volumetric ratio; and 

a receptacle adapted for and positioned to receive the fluids. 

3 The invention of Claim 1 wherein the system further comprises: 

means for directing at least one of (l) the receptacle and {2} the emitted diagnostic fluid and the emitted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle in a 
15 predefined dispensing order. ^ u • tu 

4 The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid is emitted In a manner to contact and mix 

with the serum. ^ u • »u 

5. The invention of Claim 1 wherein the jetting chamber comprises a cylindrical tube and wherein the 
so trans-ducer is mounted concentrically about the cylindrical tuba 

6. The invention of Claim 1 wherein the jetting chamber Is conically shaped. 

7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wall which is 
integrally formed with the transducer. 

8. The invention of Claim 1 wherein the transducer is one of (1) a piezo-electnc transducer; (2) a 
25 magneto-strictive transducer; {3) an electro-strictive transducer; and (4) an electro-mechanical transducer. 

9. The invention of Claim 1 wherein the jetting chamber is conically shaped: and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

10. The invention of Claim 1 wherein the orifice comprises an end face and the end face is coated with 
a hydrophobic polymer. 

30 11. The Invention of Claim 1 wherein the transducer is cylindrically shaped and comprises a first 
electrode located on the inner wall of the cylinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is electrically isolated from 
the first electrode. 

12. The invention of Claim 1 wherein the means for generating produces an electncal pulse of selected 
35 rise and fall time constants and of sele«ed duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electrical pulse comprises means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 
diagnostic fluid along a desired path. 

40 15. A method of dispensing precise quantities of diagnostic fluids comprising the steps of: 

(a) generating an electrical puise of predefined characteristics: 

(b) reducing the volume of a chamber containing the diagnostic fluid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an orifice 
in the chamber; and 

45 (c) repeating steps (a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 
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FIG.Sd 
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R4I 
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C5I 



415V 
C50 



R40 



-J5V 



CAB C49 



+5V 



Jout X * — Ps^ 



R£F(+1 

U30 

REFl-1 loUl 
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FIG.5e 
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JETTING HEAD CHARACTERIZATION 

PULSE WIDTH t 35/^S£C. 




FIG. 9 

□ VIS « 5CP 
0 VIS » 1 CP 
L VIS > 24CP 



5 7-9 
FREQUENCY, KHz. 

JETTING HEAD CHARACTERIZATION 

PULSE WIDTH 535//SEC. 




FIG.10 

-&TVtS = 5CP 

-o-vis « icp 

^VIS= 24 CP 



3 5 7 

FREQUENCY, KHz. 

JETTING HEAD CHARACTERIZATION 

IJt 80 volt, vis =2, ST = 20,DENS«0.8 




FI6.11 



4.2 4.4 4.6 4.8 

LOG (NUMBER OF DROPSl 



